proposition: Theorem Vector_cons_app_assoc : forall (A : Type)(a : A)(n1 n2 : nat)(v1 : Vector.t A n1)(v2 : Vector.t A n2), Vector.cons _ a _ (Vector.append v1 v2) = Vector.append (Vector.cons _ a _ v1) v2.
proof: Proof. induction n1; intuition; simpl in *. Qed.
imports: FCF.FCF FCF.SemEquiv FCF.DetSem