| ((P0 * P * (P0 * P2 -* P1)))(H), ((P * P0 * (P0 * P2 -* P1)))(H) → (∃ H0, H1. H0 ⊥ H1 ∧ H0 ∪ H1 = H ∧ P(H0) ∧ ((P0 * (P0 * P2 -* P1)))(H1)), ∀ P0. ((P * P0))(H) → (∃ H0, H1. H0 ⊥ H1 ∧ H0 ∪ H1 = H ∧ P(H0) ∧ P0(H1)) ⊦ ((P * (P2 -* P1)))(H) |
((P0 * (P0 * P2 -* P1)))(H1), ((P0 * P * (P0 * P2 -* P1)))(H0 ∪ H1), P(H0), H0 ⊥ H1, ∀ P0. ((P * P0))(H0 ∪ H1) → (∃ H2, H3. H2 ⊥ H3 ∧ H2 ∪ H3 = H0 ∪ H1 ∧ P(H2) ∧ P0(H3)) ⊦ ((P * (P2 -* P1)))(H0 ∪ H1)
Used simplifier rules: sep-ass: ⊦ (P0 * P1) * P2 = P0 * P1 * P2;%sep-com: ⊦ P0 * P1 = P1 * P0;