fact: Definition to1i l c l1 n := match c, l with | TO1 m _ _, O1 :: _ => tc4i l1 m n | TO1 _ m _, O2 :: _ => tc4i l1 m n | TO1 _ _ m, O3 :: _ => tc4i l1 m n | _, _ => false end.
imports: PrimInt63 Cyclic63 List BasicRubik