Definition tc_fn_return (Delta: tycontext) (ret: option ident) (t: type) :=
match ret with
| None => True
| Some i => match (temp_types Delta) ! i with Some t' => t=t' | _ => False end
end.

Lemma same_glob_funassert':
forall Delta1 Delta2 rho rho',
(forall id, (glob_specs Delta1) ! id = (glob_specs Delta2) ! id) ->
ge_of rho = ge_of rho' ->
funassert Delta1 rho = funassert Delta2 rho'.