fact: Definition tc4i l c n:= match c, l with | TC4 m _ _ _, C1 :: l1 => tc5i l1 m n | TC4 _ m _ _, C2 :: l1 => tc5i l1 m n | TC4 _ _ m _, C3 :: l1 => tc5i l1 m n | TC4 _ _ _ m, C4 :: l1 => tc5i l1 m n | _, _ => false end.
imports: PrimInt63 Cyclic63 List BasicRubik