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/Analysis/Forward/Lattices.agda
+++ b/Analysis/Forward/Lattices.agda
@@ -55,12 +55,7 @@ open VariableValuesFiniteMap
        ; ∈k-dec to ∈k-decᵛ
        ; all-equal-keys to all-equal-keysᵛ
        ; Provenance-union to Provenance-unionᵛ
-        )
-    public
-open IsLattice isLatticeᵛ
-    using ()
-    renaming
-        ( ⊔-Monotonicˡ to ⊔ᵛ-Monotonicˡ
+        ; ⊔-Monotonicˡ to ⊔ᵛ-Monotonicˡ
        ; ⊔-Monotonicʳ to ⊔ᵛ-Monotonicʳ
        ; ⊔-idemp to ⊔ᵛ-idemp
        )
--- a/Analysis/Sign.agda
+++ b/Analysis/Sign.agda
@@ -78,10 +78,9 @@ open AB.Plain 0ˢ using ()
        ; _≼_ to _≼ᵍ_
        ; _⊔_ to _⊔ᵍ_
        ; _⊓_ to _⊓ᵍ_
+        ; ≼-trans to ≼ᵍ-trans
        )

-open IsLattice isLatticeᵍ using () renaming (≼-trans to ≼ᵍ-trans)
-
 plus : SignLattice → SignLattice → SignLattice
 plus ⊥ᵍ _ = ⊥ᵍ
 plus _ ⊥ᵍ = ⊥ᵍ