(*Ltac cancel_for_forward_call ::= match goal with | gv: globals |- _ => repeat match goal with | x := gv ?i |- context [gv ?i] => change (gv i) with x end | _ => idtac end; cancel_for_evar_frame.*)

(* Specifications: *)
Lemma body_main:  semax_body Vprog Gprog f_main main_spec.
Definition extlink := ext_link_prog prog.