Expose bundles from Unit
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
parent
5420bb808e
commit
b1c6b4c99a
|
@ -89,6 +89,14 @@ isLattice = record
|
|||
; absorb-⊓-⊔ = absorb-⊓-⊔
|
||||
}
|
||||
|
||||
lattice : Lattice ⊤
|
||||
lattice = record
|
||||
{ _≈_ = _≈_
|
||||
; _⊔_ = _⊔_
|
||||
; _⊓_ = _⊓_
|
||||
; isLattice = isLattice
|
||||
}
|
||||
|
||||
open Chain _≈_ ≈-equiv (IsLattice._≺_ isLattice) (IsLattice.≺-cong isLattice)
|
||||
|
||||
private
|
||||
|
@ -104,3 +112,12 @@ isFiniteHeightLattice = record
|
|||
{ isLattice = isLattice
|
||||
; fixedHeight = (((tt , tt) , longestChain) , isLongest)
|
||||
}
|
||||
|
||||
finiteHeightLattice : FiniteHeightLattice ⊤
|
||||
finiteHeightLattice = record
|
||||
{ height = 0
|
||||
; _≈_ = _≈_
|
||||
; _⊔_ = _⊔_
|
||||
; _⊓_ = _⊓_
|
||||
; isFiniteHeightLattice = isFiniteHeightLattice
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue
Block a user