Require Export VST.veric.environ_lemmas.
Require Export VST.veric.expr_lemmas3.
Require Export VST.veric.expr_lemmas4.

Lemma map_ptree_rel : forall id v te, Map.set id v (make_tenv te) = make_tenv (PTree.set id v te).
intros. unfold Map.set. unfold make_tenv. extensionality. rewrite PTree.gsspec; auto.