| ∀ nP, n. nP ⊗_(n, m0) * true = (λ n0. nP(n0) * true)⊗_(n, m0) * true ⊦ (nP(n) * nP ⊗_(n + 1, m0)) * true = ((nP(n) * true) * (λ n0. nP(n0) * true)⊗_(n + 1, m0)) * true |
∀ nP, n. nP ⊗_(n, m0) * true = (λ n0. nP(n0) * true)⊗_(n, m0) * true ⊦ (nP(n) * nP ⊗_(n + 1, m0)) * true = true * nP(n) * (λ n0. nP(n0) * true)⊗_(n + 1, m0)
Used simplifier rules: sep-com: ⊦ P0 * P1 = P1 * P0; from specification heap-sep%sep-ass: ⊦ (P0 * P1) * P2 = P0 * P1 * P2; from specification heap-sep% ⊦ true * true = true; (s)