DanilaFe/agda-spa
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Move the Map into Lattice/Map

Browse Source 
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
Danila Fedorin 2023-09-23 15:06:43 -07:00
parent f27dec8904
commit 845a8a2236
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Equivalence.agda
View File

@ -41,7 +41,7 @@ module IsEquivalenceInstances where
(_≈₂_ : B → B → Set b) (_≈₂_ : B → B → Set b)
(eB : IsEquivalence B _≈₂_) where (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 import Data.List using (_∷_; []) -- TODO: re-export these with nicer names from map
open IsEquivalence eB renaming open IsEquivalence eB renaming

4
Lattice.agda
View File

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

2
Map.agda → Lattice/Map.agda
View File

@ -4,7 +4,7 @@ open import Relation.Binary.Core using (Rel)
open import Relation.Nullary using (Dec; yes; no; Reflects; ofʸ; ofⁿ) open import Relation.Nullary using (Dec; yes; no; Reflects; ofʸ; ofⁿ)
open import Agda.Primitive using (Level) renaming (_⊔_ to _⊔ℓ_) 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})) (≡-dec-A : Decidable (_≡_ {a} {A}))
where where