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

Non step-indexed laws about exclusive and Some.

parent d47d99dd
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 5 additions and 0 deletions
algebra/cmra.v
+ 5
− 0
View file @ 2227cd66
...@@ -1201,6 +1201,11 @@ Section option. ...@@ -1201,6 +1201,11 @@ Section option.
✓{n} (my ⋅ Some x) → my = None. ✓{n} (my ⋅ Some x) → my = None.
Proof. rewrite comm. by apply exclusiveN_Some_l. Qed. Proof. rewrite comm. by apply exclusiveN_Some_l. Qed.
Lemma exclusive_Some_l x `{!Exclusive x} my : ✓ (Some x ⋅ my) → my = None.
Proof. destruct my. move=> /(exclusive_l x) []. done. Qed.
Lemma exclusive_Some_r x `{!Exclusive x} my : ✓ (my ⋅ Some x) → my = None.
Proof. rewrite comm. by apply exclusive_Some_l. Qed.
Lemma Some_included x y : Some x ≼ Some y ↔ x ≡ y ∨ x ≼ y. Lemma Some_included x y : Some x ≼ Some y ↔ x ≡ y ∨ x ≼ y.
Proof. rewrite option_included; naive_solver. Qed. Proof. rewrite option_included; naive_solver. Qed.
Lemma Some_included' `{CMRATotal A} x y : Some x ≼ Some y ↔ x ≡ y ∨ x ≼ y. Lemma Some_included' `{CMRATotal A} x y : Some x ≼ Some y ↔ x ≡ y ∨ x ≼ y.
......
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