Implement map intersection

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2023-08-03 23:46:26 -07:00
parent 7e1f70210b
commit 56147cfc82
2 changed files with 57 additions and 4 deletions
--- a/Lattice.agda
+++ b/Lattice.agda
@@ -74,7 +74,7 @@ module IsEquivalenceInstances where
        (_≈₂_ : B → B → Set b)
        (eB : IsEquivalence B _≈₂_) where

-        open import Map A B ≡-dec-A using (Map; lift; subset; insert)
+        open import 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