fact: Definition distributive_lattice5 r:= forall x y z, inc x (substrate r) ->inc y (substrate r) -> inc z (substrate r) -> gle r (inf r z (sup r x y)) (sup r x (inf r y z)).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)