fact: Definition encode_state s := match s with | State i7 i6 i5 i4 i3 i2 i1 o1 o2 o3 o4 o5 o6 o7 => match encode_memo (i7 :: i6 :: i5 :: i4 :: i3 :: i2 :: nil) with | p7 :: p6 :: p5 :: p4 :: p3 :: p2 :: l => (p2 :: p4 :: p5 :: p6 :: nil, o5 :: o4 :: o3 :: o2 :: o1 :: nil, cube3_encode o6 p3 p7) | _ => (nil, nil, 1%positive) end end.
imports: PrimInt63 Cyclic63 List BasicRubik