fact: Definition tc2a l l1 n c := match l, c with | C1 :: l2, TC2 m m0 => TC2 (to5a l1 m l2 n) m0 | C2 :: l2, TC2 m0 m => TC2 m0 (to5a l1 m l2 n) | C1 :: l2, OTC2 => TC2 (to5a l1 OTO5 l2 n) OTO5 | C2 :: l2, OTC2 => TC2 OTO5 (to5a l1 OTO5 l2 n) | _, _ => c end.
imports: PrimInt63 Cyclic63 List BasicRubik