Section Permutations.
Context `{COT : Coinc_theory}.

(* Specifications: *)
Lemma PermWdOK :
forall (cp1 cp2 : cartesianPower COINCpoint (S (S n))),
app wd cp1 ->
Permutation.Permutation (CPToList cp1) (CPToList cp2) ->
app wd cp2.
Lemma PermCoincOK :
forall (cp1 cp2 : cartesianPower COINCpoint (S (S (S n)))),
app coinc cp1 ->
Permutation.Permutation (CPToList cp1) (CPToList cp2) ->
app coinc cp2.