Expose bundles from FiniteValueMap

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2024-03-01 21:35:40 -08:00
parent 754714d770
commit 97a4165b58
2 changed files with 10 additions and 1 deletions
--- a/Lattice/FiniteValueMap.agda
+++ b/Lattice/FiniteValueMap.agda
@@ -271,4 +271,4 @@ module IterProdIsomorphism where
            (to-preserves-≈ uks) (from-preserves-≈ {ks})
            (to-⊔-distr uks) (from-⊔-distr {ks})
            (from-to-inverseʳ uks) (from-to-inverseˡ uks)
-            using (isFiniteHeightLattice) public
+            using (isFiniteHeightLattice; finiteHeightLattice) public