fact: Definition tc6it lc lo a c := match c with | TC6 m0 m1 m2 m3 m4 m5 => int63it (C1 :: lc) lo (int63it (C2 :: lc) lo (int63it (C3 :: lc) lo (int63it (C4 :: lc) lo (int63it (C5 :: lc) lo (int63it (C6 :: lc) lo a m5) m4) m3) m2) m1) m0 | _ => a end.
imports: PrimInt63 Cyclic63 List BasicRubik