Section Basis_vectors.
Fixpoint Kronecker (A : Setoid) (t f : A) (n m : Nat) {struct m} : A :=
match n, m with
| O, O => t
| S n', O => f
| O, S m' => f
| S n', S m' => Kronecker t f n' m'
end.

Lemma Kronecker_case_equal :
forall (A : Setoid) (t f : A) (n m : Nat),
n =' m in _ -> Kronecker t f n m =' t in _.