proposition: Lemma dot_neg_inj {Hl: BL+CNV ≪ l} {n m p} {x: X n m} {y: X m p} {Hy: is_injective y}: !x ⋅ y ≦ !(x⋅y).
proof: Proof. rewrite Schroeder_r, 2negneg. mrewrite injective. ra. Qed.
imports: common lattice monoid kleene normalisation rewriting