(* Homogeneity *)

(* Specifications: *)
Lemma homk0 n k : hom n k 0.
Hint Resolve homk0.
Lemma hom0K n k : hom n 0 [k].
Hint Resolve hom0K.
Lemma const_hom n k x : hom n k x -> 0 < k -> 'C[x] = 0%f.
Lemma hom0E n (x: vect n) : hom n 0 x -> x = ['C[x]].
Lemma hom1e n i : i < n -> hom n 1 'e_i.
Lemma homE n k1 k2 (x: vect n) :
hom n k1 x -> hom n k2 x -> k1 = k2 \/ x = 0.
Lemma hom_lt n k v : n < k -> hom n k v -> v = 0.
Lemma add_hom n k (x y: vect n) :
hom n k x -> hom n k y -> hom n k (x + y).