Remove maximal chain witness from FiniteHeightLattice

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
2026-06-26 15:04:18 -05:00
parent e738eb4294
commit 5737805125
5 changed files with 13 additions and 87 deletions
--- a/lean/Spa/Lattice/Bool.lean
+++ b/lean/Spa/Lattice/Bool.lean
@@ -31,8 +31,7 @@ instance : FiniteHeightLattice Bool where
  toLattice := inferInstance
  toOrderBot := inferInstance
  toOrderTop := inferInstance
-  longestChain := (RelSeries.singleton _ (⊥ : Bool)).snoc (⊤ : Bool)
-    (by rw [RelSeries.last_singleton]; exact bot_lt_top)
+  height := 1
  chains_bounded := boundedChains

 end Bool