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

(* (k.x) ∧ y = k. (x ∧ y) *)
Lemma meet_scall n k (x y : vect n) : k .* x ∧ y = k .* (x ∧ y).