(a[P] * R)[rs, f, g] ⊦ g(r) = a, (a[P] * true)[rs, f, g(r ; a0)]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ R0 * R1 = R1 * R0], [CSIMPSEQ : ⊦ (R0 * R1) * R2 = R0 * R1 * R2])]]