Commit 230b2a6b authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Some nits.

parent 692b8570
...@@ -346,7 +346,7 @@ Section unit. ...@@ -346,7 +346,7 @@ Section unit.
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.
......
...@@ -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)))).
......
Markdown is supported
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