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

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