(* Does not hold, since readonly refers to Cur permissions Lemma ec_readonly_strong: forall (ef : external_function) (F V : Type) (ge : Genv.t F V) (vargs : list val) (m1 : mem) (t : trace) (vres : val) (m2 : mem) (EC: external_call ef ge vargs m1 t vres m2) b (VB: Mem.valid_block m1 b), readonly m1 b 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.