proposition: Lemma op_le_r : ∏ k x y : X, Lle lat x y → Lle lat (x + k) (y + k).
proof: Proof. intros k x y H. unfold Lle ; simpl. now rewrite <- is2, H. Qed.
imports: UniMath.MoreFoundations.All UniMath.Algebra.Monoids UniMath.Algebra.Groups