Get started on a lattice instance for naturals.

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
Danila Fedorin 2023-07-13 23:22:29 -07:00
parent 422ea93edb
commit c6dddb177e

View File

@ -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
}
}