Commit ee8b3ce8 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Notation for auth that does not conflict with composition of functions.

parent 2523157b
......@@ -6,8 +6,8 @@ Record auth (A : Type) : Type := Auth { authoritative : excl A ; own : A }.
Arguments Auth {_} _ _.
Arguments authoritative {_} _.
Arguments own {_} _.
Notation " x" := (Auth ExclUnit x) (at level 20).
Notation " x" := (Auth (Excl x) ) (at level 20).
Notation " x" := (Auth ExclUnit x) (at level 20).
Notation " x" := (Auth (Excl x) ) (at level 20).
(* COFE *)
Instance auth_equiv `{Equiv A} : Equiv (auth A) := λ x y,
......@@ -122,7 +122,7 @@ Proof.
split; [apply (ra_empty_valid (A:=A))|].
by intros x; constructor; simpl; rewrite (left_id _ _).
Qed.
Lemma auth_frag_op `{CMRA A} a b : (a b) a b.
Lemma auth_frag_op `{CMRA A} a b : (a b) a b.
Proof. done. Qed.
(* Functor *)
......
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