rs1 ∩ rs0 = ∅, r =>_(mk(rs1, f)), R[rs0, f, g], ∀ r. r ∈ rs1 → g(r) = a ⊦ r ==>_[rs1, f, g], (r ==>_ * R)[rs1 ∪ rs0, f, g]