Skip to content
Snippets Groups Projects
Commit 2a444b23 authored by Ralf Jung's avatar Ralf Jung
Browse files

Apply 2 suggestion(s) to 2 file(s)

parent a42a3570
No related branches found
No related tags found
No related merge requests found
......@@ -482,7 +482,7 @@ Section gset.
Lemma big_opS_list_to_set f (l : list A) :
NoDup l
([^o set] x list_to_set l, f x) [^o list] _ x l, f x.
([^o set] x list_to_set l, f x) [^o list] x l, f x.
Proof.
induction l as [|x l]; intros Hnodup.
- rewrite big_opS_empty //.
......
......@@ -1633,7 +1633,7 @@ Section gset.
Lemma big_sepS_list_to_set Φ (l : list A) :
NoDup l
([ set] x list_to_set l, Φ x) ⊣⊢ [ list] _ x l, Φ x.
([ set] x list_to_set l, Φ x) ⊣⊢ [ list] x l, Φ x.
Proof. apply big_opS_list_to_set. Qed.
Lemma big_sepS_sep Φ Ψ X :
......
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