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

`Equivalence` for `≡` on gmultisets.

parent 0d9f04c5
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
Showing
with 3 additions and 1 deletion
theories/gmultiset.v
+ 3
− 1
View file @ 793110fe
...@@ -66,6 +66,8 @@ Proof. ...@@ -66,6 +66,8 @@ Proof.
Qed. Qed.
Global Instance gmultiset_leibniz : LeibnizEquiv (gmultiset A). Global Instance gmultiset_leibniz : LeibnizEquiv (gmultiset A).
Proof. intros X Y. by rewrite gmultiset_eq. Qed. Proof. intros X Y. by rewrite gmultiset_eq. Qed.
Global Instance gmultiset_equivalence : Equivalence (≡@{gmultiset A}).
Proof. constructor; repeat intro; naive_solver. Qed.
(* Multiplicity *) (* Multiplicity *)
Lemma multiplicity_empty x : multiplicity x ∅ = 0. Lemma multiplicity_empty x : multiplicity x ∅ = 0.
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment