Fix formatting nits in Lattice.lean and Unit.lean

- Spa/Lattice.lean: add the missing space in the PointedLTSeries binder list
  ((f t : α) (n : ℕ)).
- Spa/Lattice/Unit.lean: use rfl instead of refl _, and split the ~200-column
  longestChain record literal across lines, one field per line.

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
2026-06-25 13:56:44 -05:00
parent ec2e789d5c
commit 5c9c8ac55c
2 changed files with 6 additions and 2 deletions

View File

@@ -50,7 +50,7 @@ end Folds
def BoundedChains (α : Type*) [Preorder α] (n : ) : Prop := def BoundedChains (α : Type*) [Preorder α] (n : ) : Prop :=
c : LTSeries α, c.length n c : LTSeries α, c.length n
structure PointedLTSeries (α : Type*) (f t : α)(n : ) [Preorder α] where structure PointedLTSeries (α : Type*) (f t : α) (n : ) [Preorder α] where
series : LTSeries α series : LTSeries α
head_series : series.head = f head_series : series.head = f
last_series : series.last = t last_series : series.last = t

View File

@@ -12,7 +12,11 @@ instance : FiniteHeightLattice PUnit where
bot := PUnit.unit bot := PUnit.unit
top := PUnit.unit top := PUnit.unit
height := 0 height := 0
longestChain := { series := RelSeries.singleton _ PUnit.unit, head_series := refl _, last_series := refl _, length_series := refl _ } longestChain :=
{ series := RelSeries.singleton _ PUnit.unit
head_series := rfl
last_series := rfl
length_series := rfl }
chains_bounded := boundedChains_of_subsingleton PUnit 0 chains_bounded := boundedChains_of_subsingleton PUnit 0
end Spa end Spa