DanilaFe/agda-spa
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add a 'FiniteHeightLattice' bundle

Browse Source 
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
Danila Fedorin 2024-02-11 14:17:49 -08:00
parent 6fe8dc2a02
commit 33b7bc37f0
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Lattice.agda
View File

@ -145,3 +145,14 @@ record Lattice {a} (A : Set a) : Set (lsuc a) where
isLattice : IsLattice A _≈_ _⊔_ _⊓_ isLattice : IsLattice A _≈_ _⊔_ _⊓_
open IsLattice isLattice public open IsLattice isLattice public
record FiniteHeightLattice {a} (A : Set a) : Set (lsuc a) where
field
height : ℕ
_≈_ : A → A → Set a
_⊔_ : A → A → A
_⊓_ : A → A → A
isFiniteHeightLattice : IsFiniteHeightLattice A height _≈_ _⊔_ _⊔_
open IsFiniteHeightLattice isFiniteHeightLattice public