fact: Definition to1a l c l1 n:= match l, c with | O1 :: _, TO1 m m0 m1 => TO1 (tc4a l1 m n) m0 m1 | O2 :: _, TO1 m0 m m1 => TO1 m0 (tc4a l1 m n) m1 | O3 :: _, TO1 m0 m1 m => TO1 m0 m1 (tc4a l1 m n) | O1 :: _, OTO1 => TO1 (tc4a l1 OTC4 n) OTC4 OTC4 | O2 :: _, OTO1 => TO1 OTC4 (tc4a l1 OTC4 n) OTC4 | O3 :: _, OTO1 => TO1 OTC4 OTC4 (tc4a l1 OTC4 n) | _, _ => c end.
imports: PrimInt63 Cyclic63 List BasicRubik