Definition Delta1 V G {C: compspecs}: tycontext :=
  make_tycontext ((1%positive,(Tfunction Tnil Tvoid cc_default))::nil) nil nil Tvoid V G nil.

Lemma find_symbol_funct_ptr_ex_sig V ge id f : (exists b : block, Genv.find_symbol ge id = Some b /\ Genv.find_funct_ptr ge b = Some f) -> {b : block | Genv.find_symbol ge id = Some b /\ @Genv.find_funct_ptr (Ctypes.fundef function) V ge b = Some f}.