| (bag0 ++ m).max < n, n ∈ bag0 ++ m, ∀ n. ¬(bag0.max < n ∧ n ∈ bag0) ⊦ |
(bag0 = ∅ ⊃ m;(m < bag0.max ⊃ bag0.max;m)) < n, n ∈ bag0 ++ m, ∀ n0. ¬ bag0.max < n0 ∨ ¬ n0 ∈ bag0 ⊦
Used simplifier rules: max-rec: ⊦ (bag ++ n).max = (bag = ∅ ⊃ n;(bag.max > n ⊃ bag.max;n));% ⊦ m > n ↔ n < m; (s)