Re-export members of isLattice together with the record where needed

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2025-01-04 22:43:13 -08:00
parent c0238fea25
commit ca375976b7
5 changed files with 6 additions and 11 deletions
--- a/Lattice/AboveBelow.agda
+++ b/Lattice/AboveBelow.agda
@@ -321,7 +321,7 @@ module Plain (x : A) where
            ; isLattice = isLattice
            }

-    open IsLattice isLattice using (_≼_; _≺_; ⊔-Monotonicˡ; ⊔-Monotonicʳ) public
+    open IsLattice isLattice using (_≼_; _≺_; ≼-trans; ⊔-Monotonicˡ; ⊔-Monotonicʳ) public

    ⊥≺[x] : ∀ (x : A) → ⊥ ≺ [ x ]
    ⊥≺[x] x = (≈-refl , λ ())