⊦ a ∈ s → ¬ s.max < a
s.max < (s -- a).max ⊦ s = ∅ ++ a, (s -- a).max ∈ s
Used terms: (s -- a).max, s