Usw OrderBot / OrderTop for lattice witnesses

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
Co-Authored-By: OpenAI Codex <codex@openai.com>

lean/Spa/Lattice/Bool.lean

@@ -29,6 +29,8 @@ lemma boundedChains : BoundedChains Bool 1 := fun c => by
 
 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)
   chains_bounded := boundedChains