| st0 = st[a0, st0[a0]], a0 ∈ st0, ∀ a. a ∈ st0 → (∃ st1. ¬ a ∈ st1 ∧ st0 = st1[a, st0[a]]) ⊦ st0[a0, d] = st[a0, d], a0 ∈ st, ∃ st. ¬ a0 ∈ st ∧ st0[a0, d] = st[a0, d] |
Used simplifier rules: insins: ⊦ st[a, d0][a, d] = st[a, d];%inj-put: ⊦ ¬ a ∈ st ∧ ¬ a ∈ st0 → (st[a, d] = st0[a, d] ↔ st = st0);