- Spa.Lattice.Unit: PUnit fixed height 0 (lattice lifted from mathlib) - Spa.Lattice.Prod: chain unzip + FixedHeight (h1+h2) on products (componentwise lattice lifted from mathlib's Prod.instLattice) - Spa.Lattice.AboveBelow: flat lattice via Lattice.mk' (mirrors the Agda semilattices+absorption construction), boundedness via rank into Nat, Plain x ↦ plainFixedHeight x, height 2 Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
7 lines
142 B
Lean4
7 lines
142 B
Lean4
import Spa.Lattice
|
|
import Spa.Fixedpoint
|
|
import Spa.Isomorphism
|
|
import Spa.Lattice.Unit
|
|
import Spa.Lattice.Prod
|
|
import Spa.Lattice.AboveBelow
|