(* The left contraction (Dorst inner product) *)
Notation "x ''L[' l ]  y " := (l_contra _ l x y) (at level 40).
Notation hom := (hom p _).

Lemma l_contra_conj n l x y :
(x 'L[l] y)^_'f = (x^_'f) 'L[l] (y^_'f) :> vect n.