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