Expose decidability from Map modules

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>

Lattice/Bundles/FiniteValueMap.agda

@@ -19,4 +19,8 @@ module _ (fhB : FiniteHeightLattice B) where
     module _ {ks : List A} (uks : Unique ks) (≈₂-dec : Decidable _≈₂_) where
         import Lattice.FiniteValueMap A B _≈₂_ _⊔₂_ _⊓₂_ ≡-dec-A isLattice₂ as FVM
 
+        FiniteHeightType = FVM.FiniteMap
+
+        ≈-dec = FVM.≈-dec ks ≈₂-dec
+
         finiteHeightLattice = FVM.IterProdIsomorphism.finiteHeightLattice uks ≈₂-dec height₂ fixedHeight₂