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

Tweak proof.

parent 42b75ebf
No related branches found
No related tags found
No related merge requests found
......@@ -675,12 +675,12 @@ Qed.
Lemma big_opS_gset_to_gmap (X : gset K) (a : A) :
([^op set] x X, {[ x := a ]}) gset_to_gmap a X.
Proof.
induction X as [|? ? ? IHX] using set_ind_L.
{ intros ?; rewrite big_opS_empty gset_to_gmap_empty //=. }
induction X as [|x X ? IH] using set_ind_L.
{ rewrite big_opS_empty gset_to_gmap_empty //. }
rewrite big_opS_insert //.
rewrite gset_to_gmap_union_singleton.
rewrite insert_singleton_op; [|by rewrite lookup_gset_to_gmap_None].
by rewrite IHX.
by rewrite IH.
Qed.
Lemma big_opS_gset_to_gmap_L `{!LeibnizEquiv A} (X : gset K) (a : A) :
......
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