fact: Fixpoint int63it_aux (m : nat) (p : positive) (c1 : int) (lc : list cube) (lo : list orientation) (a : A) {struct m} := match m with | O => a | S m1 => let c2 := shiftr63 c1 1 in let a1 := match compare c1 (shiftl63 c2 1) with | Eq => a | _ => next a lc lo p end in int63it_aux m1 (Pos.succ p) c2 lc lo a1 end.
imports: PrimInt63 Cyclic63 List BasicRubik