fact: Definition state_eq (s1 s2: state) := match s1, s2 with State p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14, State q1 q2 q3 q4 q5 q6 q7 q8 q9 q10 q11 q12 q13 q14 => (cube_eq p1 q1 && cube_eq p2 q2 && cube_eq p3 q3 && cube_eq p4 q4 && cube_eq p5 q5 && cube_eq p6 q6 && cube_eq p7 q7 && oeq p8 q8 && oeq p9 q9 && oeq p10 q10 && oeq p11 q11 && oeq p12 q12 && oeq p13 q13 && oeq p14 q14)%bool end.
imports: ZArith List