wip on subst lemma (no-narrowing version)