This makes a finite-height proof for any `Fin n -> a` lattice immediate, and precludes the need for IterProd and Prod altogether. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
15 lines
281 B
Lean4
15 lines
281 B
Lean4
import Spa.Lattice
|
|
|
|
/-!
|
|
|
|
# Unit Lattice
|
|
|
|
This file provides a proof that in addition to being a lattice,
|
|
`PUnit` is a `Spa.FiniteHeightLattice`. This is a fairly trivial result. -/
|
|
|
|
namespace Spa
|
|
|
|
instance : FiniteHeightLattice PUnit := FiniteHeightLattice.ofUnique PUnit
|
|
|
|
end Spa
|