no goals
α : Type u_1
β : Type ?u.101376
inst✝ : LinearOrder α
l✝ : List α
a✝ m a : α
l : List α
⊢ maximum [a] = max (↑a) (maximum [])
simp [@max_eq_left (WithBot α) _ _ _ bot_le]
no goals
α : Type u_1
β : Type ?u.101376
inst✝ : LinearOrder α
l✝ : List α
a✝ m a : α
l tl : List α
hd : α
ih : maximum (a :: tl) = max (↑a) (maximum tl)
⊢ maximum (a :: (tl ++ [hd])) = max (↑a) (maximum (tl ++ [hd]))
rw [← cons_append, maximum_concat, ih, maximum_concat, max_assoc]