Skip to content
Snippets Groups Projects
Commit 230b2a6b authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Some nits.

parent 692b8570
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
algebra/ofe.v
+ 3
− 3
View file @ 230b2a6b
...@@ -342,11 +342,11 @@ Section unit. ...@@ -342,11 +342,11 @@ Section unit.
Definition unit_ofe_mixin : OfeMixin unit. Definition unit_ofe_mixin : OfeMixin unit.
Proof. by repeat split; try exists 0. Qed. Proof. by repeat split; try exists 0. Qed.
Canonical Structure unitC : ofeT := OfeT unit unit_ofe_mixin. Canonical Structure unitC : ofeT := OfeT unit unit_ofe_mixin.
Global Program Instance unit_cofe : Cofe unitC := { compl x := () }. Global Program Instance unit_cofe : Cofe unitC := { compl x := () }.
Next Obligation. by repeat split; try exists 0. Qed. Next Obligation. by repeat split; try exists 0. Qed.
Global Instance unit_discrete_cofe : Discrete unitC. Global Instance unit_discrete_cofe : Discrete unitC.
Proof. done. Qed. Proof. done. Qed.
End unit. End unit.
......
base_logic/lib/boxes.v
+ 2
− 2
View file @ 230b2a6b
...@@ -15,8 +15,8 @@ Section box_defs. ...@@ -15,8 +15,8 @@ Section box_defs.
Definition slice_name := gname. Definition slice_name := gname.
Definition box_own_auth (γ : slice_name) (a : auth (option (excl bool))) Definition box_own_auth (γ : slice_name) (a : auth (option (excl bool))) : iProp Σ :=
:= own γ (a, (∅:option (agree (later (iPreProp Σ))))). own γ (a, (∅:option (agree (later (iPreProp Σ))))).
Definition box_own_prop (γ : slice_name) (P : iProp Σ) : iProp Σ := Definition box_own_prop (γ : slice_name) (P : iProp Σ) : iProp Σ :=
own γ (∅:auth (option (excl bool)), Some (to_agree (Next (iProp_unfold P)))). own γ (∅:auth (option (excl bool)), Some (to_agree (Next (iProp_unfold P)))).
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment