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/FiniteMap.agda
+++ b/Lattice/FiniteMap.agda
@@ -184,7 +184,7 @@ private module WithKeys (ks : List A) where
            ; isLattice = isLattice
            }

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

    m₁≼m₂⇒m₁[k]≼m₂[k] : ∀ (fm₁ fm₂ : FiniteMap) {k : A} {v₁ v₂ : B} →
                        fm₁ ≼ fm₂ → (k , v₁) ∈ fm₁ → (k , v₂) ∈ fm₂ → v₁ ≼₂ v₂