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