Module SSWP := WPropertiesOn SetOfSetsOfPositiveOrderedType SS.
Module SSWEqP := WEqPropertiesOn SetOfSetsOfPositiveOrderedType SS.
Module Import PosSort := Sort PosOrder.
Section Coinc_refl.
Context {AR : Arity}.
Definition pick_variety_auxCP {m : nat} (s : SS.elt) (cp : cartesianPower positive (S (S m))) : bool.

Lemma proper_00 :
forall s,
Proper
((fun (t1 t2 : tST) =>
eqST t1 t2) ==> eq)
(fun t : tST => pick_variety_aux s t).