(*CompCert imports*)
(** * Core semantics *)

(* Specifications: *)
Lemma external_call_mem_forward:
forall (ef : external_function) (F V : Type) (ge : Genv.t F V)
(vargs : list val) (m1 : mem) (t : trace) (vres : val) (m2 : mem),
external_call ef ge vargs m1 t vres m2 -> mem_forward m1 m2.
Lemma external_call_mem_forward:
forall (ef : external_function) (F V : Type) (ge : Genv.t F V)
(vargs : list val) (m1 : mem) (t : trace) (vres : val) (m2 : mem),
external_call ef ge vargs m1 t vres m2 -> mem_forward m1 m2.