| ⊦ (a[P] * a0[P0] * a1[P1] * R)[rs, f, g] ∧ a ≠ a0 ∧ a ≠ a1 ∧ a0 ≠ a1 → (a[P] * true)[rs, f, g] ∧ (a0[P0] * a1[P1] * true)[rs, f, g] |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (R0 * R)[rs, f, g] → (true * R)[rs, f, g]], [CSIMPSEQ : ⊦ R0 * R1 = R1 * R0], [CSIMPSEQ : ⊦ (R0 * R1) * R2 = R0 * R1 * R2])]]