| s1 = s ++ a1, # s1 + 1 < # s0, a ∈ s0, ∀ s0. # s1 < # s0 → (∃ a. a ∈ s0 ∧ ¬ a ∈ s1) ⊦ s1 = s, a ∈ s1, ∃ a0. a0 ∈ s0 ∧ a0 ≠ a ∧ ¬ a0 ∈ s1 |
(# s + 1) + 1 < # s0, a ∈ s0, ∀ s1. # s + 1 < # s1 → (∃ a0. a0 ∈ s1 ∧ a0 ≠ a1 ∧ ¬ a0 ∈ s) ⊦ a = a1, a1 ∈ s, a ∈ s, ∃ a0. a0 ∈ s0 ∧ a0 ≠ a ∧ a0 ≠ a1 ∧ ¬ a0 ∈ s
Used simplifier rules: eq-03: ⊦ s ++ a = s ↔ a ∈ s;%Size-insert: ⊦ ¬ a ∈ s → #(s ++ a) = # s + 1;%In-insert: ⊦ a ∈ s ++ b ↔ a = b ∨ a ∈ s;