proposition: Lemma istrans_latticedec_gt_rel : istrans latticedec_gt_rel.
proof: Proof. intros x y z Hxy Hyz Hxz. simple refine (Hxy _). apply istrans_Lle with z. apply Hxz. apply latticedec_gt_ge. exact Hyz. Qed.
imports: UniMath.MoreFoundations.All UniMath.Algebra.Monoids UniMath.Algebra.Groups