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

(* Specifications: *)
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)).
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)).
Lemma tycontext_evolve_refl : forall Delta, tycontext_evolve Delta Delta.