| bag0.max < (bag0 -- m).max, m0 < (bag0 -- m).max, bag0.max ≤ m0, ∀ m. (bag0 -- m).max = bag0.max ∨ m = bag0.max ⊦ (bag0 -- m).max = m0, bag0 = ∅, bag0 = ∅ ++ m, m = m0 |
⊦ bag0 ≠ ∅ ∧ bag0 ⊆ bag1 → ¬ bag1.max < bag0.max
Used simplifier rules: bag-rem-empty: ⊦ bag ≠ ∅ → (bag -- n = ∅ ↔ bag = ∅ ++ n);%bag-rem-subseteq: ⊦ bag -- n ⊆ bag; Used terms: bag0 -- m, bag0