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

Prove `m ∖ m = ∅` for finite maps.

parent 55ed83e2
No related branches found
No related tags found
No related merge requests found
Pipeline #
...@@ -1884,6 +1884,11 @@ Proof. ...@@ -1884,6 +1884,11 @@ Proof.
destruct (m1 !! i) as [x'|], (m2 !! i); destruct (m1 !! i) as [x'|], (m2 !! i);
try specialize (Hm1m2 x'); compute; intuition congruence. try specialize (Hm1m2 x'); compute; intuition congruence.
Qed. Qed.
Lemma map_difference_diag {A} (m : M A) : m m = ∅.
Proof.
apply map_empty; intros i. rewrite lookup_difference_None.
destruct (m !! i); eauto.
Qed.
End theorems. End theorems.
(** * Tactics *) (** * Tactics *)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment