(* Defining the meet *)
(* unicode 2227 *)
Notation "x '∧' y" := (meet _ x y) (at level 45, left associativity).

(* By duality *)
Lemma meet_hom n k1 k2 (x y : vect n) :
hom n k1 x -> hom n k2 y -> hom n (k1 + k2 - n) (x ∧ y).