Commit 414b7b1e authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Another form of associativity for `opM`.

parent 6cb0f4d2
......@@ -1333,6 +1333,9 @@ Section option.
Lemma op_is_Some mx my : is_Some (mx my) is_Some mx is_Some my.
Proof. rewrite -!not_eq_None_Some op_None. destruct mx, my; naive_solver. Qed.
Lemma cmra_opM_assoc' x my mz : x ? my ? mz x ? (my mz).
Proof. destruct my, mz; by rewrite /= -?assoc. Qed.
Global Instance Some_core_id (x : A) : CoreId x CoreId (Some x).
Proof. by constructor. Qed.
Global Instance option_core_id (mx : option A) :
Supports Markdown
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