| m < bag0.max, bag0 = ∅ ++ bag0.max ∨ bag0.max = (bag0 -- bag0.max).max ⊦ bag0.max = (bag0 = ∅ ++ bag0.max ⊃ m;(m < (bag0 -- bag0.max).max ⊃ (bag0 -- bag0.max).max;m)), bag0 = ∅, count(bag0.max, bag0) = 1, m = bag0.max |
bag0 = ∅ ++ bag0.max, m < bag0.max, bag0 = ∅ ++ bag0.max ∨ bag0.max = (bag0 -- bag0.max).max ⊦ bag0.max = m, bag0 = ∅, count(bag0.max, bag0) = 1
Used simplifier rules: lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic