Lemma ldistr_join_consensus {X : hSet} (b : distributive_prebilattice X) : isldistr (join b) (consensus b) . Proof. exact (pr1 (pr2 (pr2 (pr2 (pr2 (pr2 (pr2 b))))))) . Defined.
Require Import UniMath.OrderTheory.Prebilattice.Prebilattice. Require Import UniMath.OrderTheory.Prebilattice.Interlaced. Require Import UniMath.Foundations.Sets. Require Import UniMath.Algebra.BinaryOperations. Require Import UniMath.OrderTheory.Lattice.Distributive.