fact: Definition tc4it lc lo a c := match c with | TC4 m0 m1 m2 m3 => tc5it (C1 :: lc) lo (tc5it (C2 :: lc) lo (tc5it (C3 :: lc) lo (tc5it (C4 :: lc) lo a m3) m2) m1) m0 | _ => a end.
imports: PrimInt63 Cyclic63 List BasicRubik