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

Lemma initial_jm_ext_funassert (ora : OK_ty) V (prog : Clight.program) m G n H H1 H2 : (funassert (nofunc_tycontext V G) (empty_environ (globalenv prog))) (m_phi (initial_jm_ext ora prog m G n H H1 H2)).