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