Proof (proj2 exec_stmt_eval_funcall_steps).
Definition order (x y: unit) := False.

(* Specifications: *)
Lemma evalinf_funcall_forever:
forall m fd args T k,
evalinf_funcall ge m fd args T ->
forever_N step1 order ge tt (Callstate fd args k m) T.
Theorem bigstep_semantics_sound:
bigstep_sound (bigstep_semantics prog) (semantics1 prog).