Canonical diso_group3 := Group group_set_diso3.Notation col_cubes := {ffun cube -> colors}.

(* Specifications: *)
Lemma act_g_1 : forall k, act_g k 1 = k.
Lemma act_g_morph : forall k x y, act_g k (x * y) = act_g (act_g k x) y.