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).