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

(* (x + y) ∧ z = (x ∧ z) + (y ∧ z) *)
Lemma meet_addl n (x y z : vect n) : (x + y) ∧ z = x ∧ z + y ∧ z.