fact: Definition makeLattice (po:PartialOrder) (meet join : po -> po -> po) p1 p2 p3 p4 p5 p6 := @Build_Lattice (@makeSemiLattice po meet p1 p2 p3) join (@Build_is_SemiLattice (Dual po) join p4 p5 p6).
imports: Coq.Setoids.Setoid CoRN.order.SemiLattice