fact: Definition to3i l c l1 n:= match c, l with | TO3 m _ _, O1 :: l2 => to2i l2 m l1 n | TO3 _ m _, O2 :: l2 => to2i l2 m l1 n | TO3 _ _ m, O3 :: l2 => to2i l2 m l1 n | _, _ => false end.
imports: PrimInt63 Cyclic63 List BasicRubik