Proof (proj2 eval_funcall_exec_stmt_steps).

(* Specifications: *)
Lemma evalinf_funcall_forever:
forall m fd args T k,
evalinf_funcall ge m fd args T ->
forever_plus step ge (Callstate fd args k m) T.
Theorem bigstep_semantics_sound:
bigstep_sound (bigstep_semantics prog) (semantics prog).