proposition: Lemma tmap_connector (c : connector m) : {homo f : x y / (x <= y)%O >-> (x <= y)%O} -> {morph tmap f : t / cfun c t >-> cfun c t}.
proof: Proof. move=> Hm t ; apply: eq_from_tnth => i. rewrite /cfun !tnth_map !tnth_ord_tuple -(min_homo Hm) -(max_homo Hm). by case: leqP; case: (cflip c i). Qed.
imports: mathcomp(all_ssreflect perm algebra.zmodp) mathcomp(zify) more_tuple