Files
agda-spa/lean/Spa/Lattice/Unit.lean

17 lines
414 B
Lean4
Raw Normal View History

import Spa.Lattice
/-!
# Unit Lattice
This file provides a proof that in addition to being a lattice,
`PUnit` is a `Spa.FiniteHeightLattice`. This is fairly trivial result,
but the unit is used as a placeholder in various contexts (e.g.,
as a base case for the iterated product `Spa/Lattice/IterProd.lean`). -/
namespace Spa
instance : FiniteHeightLattice PUnit := FiniteHeightLattice.ofUnique PUnit
end Spa