auto with algebra.
Qed.

(* Specifications: *)
Lemma a_scalar_times_zero_gives_zero :
forall f : F, f mX (zero V) =' (zero V) in _.
Lemma Mince_minus2 :
forall (f : F) (v : V), (min f mX v) =' f mX (min v) in _.
Lemma Mince_minus3 :
forall (f : F) (v : V), (min f) mX v =' f mX (min v) in _.
Lemma mult_inherited :
forall (c : F) (x : W), inj_subspace (c mX x) =' c mX inj_subspace x in _.
Lemma head_unfolding2 :
forall v : seq (S n) A,
a =' v (Build_finiteT (lt_O_Sn n)) in _ -> a =' head v in _.