fact: Fixpoint iter2_aux n p (ps: (tc2 * tc2) * tc2) := match n with O => ps | S n1 => let (m,p1) := ps in iter2_aux n1 (pos_up p) (tc2it _ (next2p p) (m,OTC2) p1) end.
imports: PrimInt63 Cyclic63 List BasicRubik Max