Lemma rdistr_join_consensus {X : hSet} (b : distributive_prebilattice X) : isrdistr (join b) (consensus b) . Proof. exact (weqldistrrdistr (join b) (consensus b) (iscomm_consensus b) (ldistr_join_consensus 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.