Skip to content
Snippets Groups Projects
Commit c65aad41 authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan
Browse files

List big op is compatible with permutations.

parent 0dd40006
No related branches found
No related tags found
No related merge requests found
...@@ -154,6 +154,13 @@ Section list. ...@@ -154,6 +154,13 @@ Section list.
( k y, l !! k = Some y f k y g k y) ( k y, l !! k = Some y f k y g k y)
([ list] k y l, f k y) ([ list] k y l, g k y). ([ list] k y l, f k y) ([ list] k y l, g k y).
Proof. apply big_opL_forall; apply _. Qed. Proof. apply big_opL_forall; apply _. Qed.
Lemma big_opL_permutation (f : A M) l1 l2 :
l1 l2 ([ list] x l1, f x) ([ list] x l2, f x).
Proof.
assert ( l, imap (λ _ x, f x) l = map f l) as EQ;
last by rewrite /big_opL !EQ=>->.
intros l; revert f. induction l as [|?? IH]=>// f. rewrite imap_cons IH //.
Qed.
Global Instance big_opL_ne l n : Global Instance big_opL_ne l n :
Proper (pointwise_relation _ (pointwise_relation _ (dist n)) ==> (dist n)) Proper (pointwise_relation _ (pointwise_relation _ (dist n)) ==> (dist n))
......
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