| bag0.max ≤ m0, ∀ m. (bag0 -- m).max = bag0.max ∨ m = bag0.max ⊦ (m0 < (bag0 -- m).max ⊃ (bag0 -- m).max;m0) = m0, bag0 = ∅ ++ m, bag0 = ∅, m = m0 |
m0 < (bag0 -- m).max, bag0.max ≤ m0, ∀ m. (bag0 -- m).max = bag0.max ∨ m = bag0.max ⊦ (m0 < (bag0 -- m).max ⊃ (bag0 -- m).max;m0) = m0, bag0 = ∅, bag0 = ∅ ++ m, m = m0
Used formulas: m0 < (bag0 -- m).max