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

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