| ∀ a. a ∈ st → precise(adP(a, st[a])), ∀ st0, adP. # st0 < # st → (∀ a. a ∈ st0 → precise(adP(a, st0[a]))) → precise(adP ⊗_ st0) ⊦ precise(adP ⊗_ st), ∀ a, d, st0. ¬(st = st0[a, d] ∧ ¬ a ∈ st0) |
∀ a0. a0 ∈ st0[a, d] → precise(adP(a0, st0[a, d][a0])), ∀ st1, adP. # st1 < # st0[a, d] → (∀ a. a ∈ st1 → precise(adP(a, st1[a]))) → precise(adP ⊗_ st1) ⊦ precise(adP(a, d) * adP ⊗_ st0), a ∈ st0
Used simplifier rules: Sep-ins: ⊦ ¬ a ∈ st → adP ⊗_ st[a, d] = adP(a, d) * adP ⊗_ st;