Move the Map into Lattice/Map

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

Equivalence.agda

@@ -41,7 +41,7 @@ module IsEquivalenceInstances where
         (_≈₂_ : B → B → Set b)
         (eB : IsEquivalence B _≈₂_) where
 
-        open import Map A B ≡-dec-A using (Map; lift; subset)
+        open import Lattice.Map A B ≡-dec-A using (Map; lift; subset)
         open import Data.List using (_∷_; []) -- TODO: re-export these with nicer names from map
 
         open IsEquivalence eB renaming

Lattice.agda

@@ -221,7 +221,7 @@ module IsSemilatticeInstances where
         (_⊔₂_ : B → B → B)
         (sB : IsSemilattice B _≈₂_ _⊔₂_) where
 
-        open import Map A B ≡-dec-A
+        open import Lattice.Map A B ≡-dec-A
         open IsSemilattice sB renaming
             ( ≈-refl to ≈₂-refl; ≈-sym to ≈₂-sym; ≈-⊔-cong to ≈₂-⊔₂-cong
             ; ⊔-assoc to ⊔₂-assoc; ⊔-comm to ⊔₂-comm; ⊔-idemp to ⊔₂-idemp
@@ -336,7 +336,7 @@ module IsLatticeInstances where
         (_⊓₂_ : B → B → B)
         (lB : IsLattice B _≈₂_ _⊔₂_ _⊓₂_) where
 
-        open import Map A B ≡-dec-A
+        open import Lattice.Map A B ≡-dec-A
         open IsLattice lB renaming
             ( ≈-refl to ≈₂-refl; ≈-sym to ≈₂-sym
             ; ⊔-idemp to ⊔₂-idemp; ⊓-idemp to ⊓₂-idemp

Lattice/Map.agda

@@ -4,7 +4,7 @@ open import Relation.Binary.Core using (Rel)
 open import Relation.Nullary using (Dec; yes; no; Reflects; ofʸ; ofⁿ)
 open import Agda.Primitive using (Level) renaming (_⊔_ to _⊔ℓ_)
 
-module Map {a b : Level} (A : Set a) (B : Set b)
+module Lattice.Map {a b : Level} (A : Set a) (B : Set b)
     (≡-dec-A : Decidable (_≡_ {a} {A}))
     where