subeq-tp-trans. bunch of helper lemmas for sub-env