proposition: Theorem make_listtc2irA c ll1 ll2 : tc2it _ make_list (ll1++ll2) c = ll1 ++ tc2it _ make_list ll2 c.
proof: Proof. case c; unfold tc2it; auto with datatypes. intros cc1 cc2; repeat rewrite make_listto5irA; auto. Qed.
imports: PrimInt63 Cyclic63 List BasicRubik