Expose bundles from FiniteValueMap
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
parent
754714d770
commit
97a4165b58
|
@ -60,3 +60,12 @@ module TransportFiniteHeight
|
||||||
{ isLattice = lB
|
{ isLattice = lB
|
||||||
; fixedHeight = (((f a₁ , f a₂), portChain₁ c) , λ c' → bounded₁ (portChain₂ c'))
|
; fixedHeight = (((f a₁ , f a₂), portChain₁ c) , λ c' → bounded₁ (portChain₂ c'))
|
||||||
}
|
}
|
||||||
|
|
||||||
|
finiteHeightLattice : FiniteHeightLattice B
|
||||||
|
finiteHeightLattice = record
|
||||||
|
{ height = height
|
||||||
|
; _≈_ = _≈₂_
|
||||||
|
; _⊔_ = _⊔₂_
|
||||||
|
; _⊓_ = _⊓₂_
|
||||||
|
; isFiniteHeightLattice = isFiniteHeightLattice
|
||||||
|
}
|
||||||
|
|
|
@ -271,4 +271,4 @@ module IterProdIsomorphism where
|
||||||
(to-preserves-≈ uks) (from-preserves-≈ {ks})
|
(to-preserves-≈ uks) (from-preserves-≈ {ks})
|
||||||
(to-⊔-distr uks) (from-⊔-distr {ks})
|
(to-⊔-distr uks) (from-⊔-distr {ks})
|
||||||
(from-to-inverseʳ uks) (from-to-inverseˡ uks)
|
(from-to-inverseʳ uks) (from-to-inverseˡ uks)
|
||||||
using (isFiniteHeightLattice) public
|
using (isFiniteHeightLattice; finiteHeightLattice) public
|
||||||
|
|
Loading…
Reference in New Issue
Block a user