Expose 'subset-impl' from Map
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
parent
2a06e6ae2d
commit
99fc21cef2
|
@ -479,7 +479,7 @@ _∈k_ k m = MemProp._∈_ k (keys m)
|
||||||
Map-functional : ∀ {k : A} {v v' : B} {m : Map} → (k , v) ∈ m → (k , v') ∈ m → v ≡ v'
|
Map-functional : ∀ {k : A} {v v' : B} {m : Map} → (k , v) ∈ m → (k , v') ∈ m → v ≡ v'
|
||||||
Map-functional {m = (l , ul)} k,v∈m k,v'∈m = ListAB-functional ul k,v∈m k,v'∈m
|
Map-functional {m = (l , ul)} k,v∈m k,v'∈m = ListAB-functional ul k,v∈m k,v'∈m
|
||||||
|
|
||||||
open ImplRelation renaming (subset to subset-impl)
|
open ImplRelation using () renaming (subset to subset-impl) public
|
||||||
|
|
||||||
_⊆_ : Map → Map → Set (a ⊔ℓ b)
|
_⊆_ : Map → Map → Set (a ⊔ℓ b)
|
||||||
_⊆_ (kvs₁ , _) (kvs₂ , _) = subset-impl kvs₁ kvs₂
|
_⊆_ (kvs₁ , _) (kvs₂ , _) = subset-impl kvs₁ kvs₂
|
||||||
|
|
Loading…
Reference in New Issue
Block a user