| ¬ # s + 1 ≤ # s0, # s0 = #(s0 \ s) + # s, # s ≤ # s0, a ∈ s0, a0 ∈ s0, ∀ a0. a0 ∈ s ++ a → a0 ∈ s0 ⊦ #(s0 \ s) - 1 = # s0 - # s + 1, a ∈ s |
#(s0 \ s) = 0, # s = # s0, a ∈ s0, a0 ∈ s0, ∀ a0. a0 ∈ s ++ a → a0 ∈ s0, ∀ a1. ¬ a1 ∈ s0 \ s ⊦ 0 - 1 = # s0 - # s0 + 1, a ∈ s
Used simplifier rules: In-empty: ⊦ ¬ a ∈ ∅; from specification set-basic%Extension: ⊦ s1 = s2 ↔ (∀ a. a ∈ s1 ↔ a ∈ s2); from specification set-basic%size-zero-02: ⊦ # s = 0 → s = ∅; (forward) from specification set-basic%ler: ⊦ m ≤ m; from specification nat%eq: ⊦ m = m + n ↔ n = 0; from specification nat-basic2%c: ⊦ m + n = n + m; from specification nat-basic2%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%anti: ⊦ m ≤ n → (n ≤ m ↔ m = n); from specification nat%lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat%succ-01: ⊦ m + 1 ≤ n ↔ m < n; from specification nat