Get started on a lattice instance for naturals.
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
parent
422ea93edb
commit
c6dddb177e
11
Lattice.agda
11
Lattice.agda
|
@ -153,3 +153,14 @@ private module NatInstances where
|
|||
; ⊔-least = min-greatest
|
||||
}
|
||||
}
|
||||
|
||||
NatLattice : Lattice ℕ
|
||||
NatLattice = record
|
||||
{ _≼_ = _≤_
|
||||
; _⊔_ = _⊔_
|
||||
; _⊓_ = _⊓_
|
||||
; isLattice = record
|
||||
{ joinSemilattice = Semilattice.isSemilattice NatMaxSemilattice
|
||||
; meetSemilattice = Semilattice.isSemilattice NatMinSemilattice
|
||||
}
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue
Block a user