(* 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_eij n l i j :
i < n -> j < n -> i <> j -> 'e_i 'L[l] 'e_j =  0 :> vect n.