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

Some nits.

parent 692b8570
......@@ -342,11 +342,11 @@ Section unit.
Definition unit_ofe_mixin : OfeMixin unit.
Proof. by repeat split; try exists 0. Qed.
Canonical Structure unitC : ofeT := OfeT unit unit_ofe_mixin.
Global Program Instance unit_cofe : Cofe unitC := { compl x := () }.
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.
End unit.
......
......@@ -15,8 +15,8 @@ Section box_defs.
Definition slice_name := gname.
Definition box_own_auth (γ : slice_name) (a : auth (option (excl bool)))
:= own γ (a, (:option (agree (later (iPreProp Σ))))).
Definition box_own_auth (γ : slice_name) (a : auth (option (excl bool))) : iProp Σ :=
own γ (a, (:option (agree (later (iPreProp Σ))))).
Definition box_own_prop (γ : slice_name) (P : iProp Σ) : iProp Σ :=
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