Commit 4f0acc79 authored by Robbert Krebbers's avatar Robbert Krebbers

Lemma for inclusion of excl similar to dec_agree.

parent 54ede303
......@@ -120,11 +120,11 @@ Lemma excl_validN_inv_l n mx a : ✓{n} (Excl' a ⋅ mx) → mx = None.
Proof. by destruct mx. Qed.
Lemma excl_validN_inv_r n mx a : {n} (mx Excl' a) mx = None.
Proof. by destruct mx. Qed.
Lemma Excl_includedN n a mx : {n} mx Excl' a {n} mx mx {n} Excl' a.
Proof.
intros Hvalid; split; [|by intros ->].
intros [z ?]; cofe_subst. by rewrite (excl_validN_inv_l n z a).
Qed.
Lemma Excl_includedN n a b : Excl' a {n} Excl' b a {n} b.
Proof. by intros [[c|] Hb%(inj Some)]; inversion_clear Hb. Qed.
Lemma Excl_included a b : Excl' a Excl' b a b.
Proof. by intros [[c|] Hb%(inj Some)]; inversion_clear Hb. Qed.
End excl.
Arguments exclC : clear implicits.
......
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