exact (erase_le_erase ha $ min'_mem _ _).2 $ min'_le _ _ $ ha
case inl
α : Type u_1
β : Type u_2
inst✝ : LinearOrder α
s : Finset α
a : α
ha : a ∈ s
hst : { ofColex := s } ≤ { ofColex := s }
hcard : s.card ≤ s.card
ht : s.Nonempty
m : α := s.min' ht
⊢ { ofColex := s.erase a } ≤ { ofColex := s.erase m }
no goals