| ∀ st0. (∀ a. a ∈ st1 ↔ a ∈ st0) → # st1 = # st0, a ∈ st1[a, d] ↔ a ∈ st0, ∀ a0. a0 ∈ st1[a, d] ↔ a0 ∈ st0 ⊦ # st1 + 1 = # st0, a ∈ st1 |
a ∈ st0, ∀ a0. a0 ∈ st1[a, d] ↔ a0 ∈ st0, ∀ st0. (∀ a. a ∈ st1 ↔ a ∈ st0) → # st1 = # st0 ⊦ # st1 + 1 = # st0, a ∈ st1
Used simplifier rules: In-insert: ⊦ a ∈ st[b, d] ↔ a = b ∨ a ∈ st;