Inductive extcall_debug_sem (ge: Senv.t):
list val -> mem -> trace -> val -> mem -> Prop :=
| extcall_debug_sem_intro: forall vargs m,
extcall_debug_sem ge vargs m E0 Vundef m.

(* Specifications: *)
Lemma extcall_debug_ok:
forall targs,
extcall_properties extcall_debug_sem
(mksignature targs None cc_default).