(r ==>_ * R)[rs, f, g] ⊦ ∃ a. (a[r =>_] * R)[rs, f, g]
∃ a. (a[r =>_] * R)[rs, f, g] ⊦ (r ==>_ * R)[rs, f, g]