Remove need for explicit arguments in map derivatives
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
@@ -4,14 +4,14 @@ open import Relation.Binary.PropositionalEquality as Eq
|
||||
open import Agda.Primitive using (Level) renaming (_⊔_ to _⊔ℓ_)
|
||||
open import Data.List using (List; _∷_; [])
|
||||
|
||||
module Lattice.FiniteMap {a b : Level} (A : Set a) (B : Set b)
|
||||
(_≈₂_ : B → B → Set b)
|
||||
(_⊔₂_ : B → B → B) (_⊓₂_ : B → B → B)
|
||||
module Lattice.FiniteMap {a b : Level} {A : Set a} {B : Set b}
|
||||
{_≈₂_ : B → B → Set b}
|
||||
{_⊔₂_ : B → B → B} {_⊓₂_ : B → B → B}
|
||||
(≡-dec-A : IsDecidable (_≡_ {a} {A}))
|
||||
(lB : IsLattice B _≈₂_ _⊔₂_ _⊓₂_) where
|
||||
|
||||
open IsLattice lB using () renaming (_≼_ to _≼₂_)
|
||||
open import Lattice.Map A B _≈₂_ _⊔₂_ _⊓₂_ ≡-dec-A lB as Map
|
||||
open import Lattice.Map ≡-dec-A lB as Map
|
||||
using (Map; ⊔-equal-keys; ⊓-equal-keys; ∈k-dec; m₁≼m₂⇒m₁[k]≼m₂[k])
|
||||
renaming
|
||||
( _≈_ to _≈ᵐ_
|
||||
|
||||
Reference in New Issue
Block a user