(** ** Semantics of annotations. *)
Inductive extcall_annot_sem (text: string) (targs: list typ) (ge: Senv.t):
list val -> mem -> trace -> val -> mem -> Prop :=
| extcall_annot_sem_intro: forall vargs m args,
eventval_list_match ge args targs vargs ->
extcall_annot_sem text targs ge vargs m (Event_annot text args :: E0) Vundef m.

(* Specifications: *)
Lemma extcall_annot_ok:
forall text targs,
extcall_properties (extcall_annot_sem text targs)
(mksignature targs None cc_default).
Lemma extcall_annot_ok:
forall text targs,
extcall_properties (extcall_annot_sem text targs)
(mksignature targs None cc_default).