(*(temp_types Delta) ! id =  Some (Tpointer t a, init) ->*) (*modified for init changes*)

Lemma typecheck_environ_put_te : forall ge te ve Delta id v ,
typecheck_environ Delta (mkEnviron ge ve te) ->
(forall t , ((temp_types Delta) ! id = Some t ->
tc_val' t v)) ->
typecheck_environ Delta (mkEnviron ge ve (Map.set id v te)).