(* Clight SEmantics for Machines*)
(* We define event semantics for - Clight_new: the core semantics defined by VST - Clightcore: the core semantics derived from CompCert's Clight *)
(*IM using proof irrelevance!*)
(* The concurrent machinery*)
Arguments sizeof {env} !t / .
(*Semantics*)
Set Bullet Behavior "Strict Subproofs".

(* Specifications: *)
Lemma extcall_malloc_sem_inv: forall g v m t res m2 (E:Events.extcall_malloc_sem g v m t res m2),
exists m1 b (sz : ptrofs), v=[Vptrofs sz] /\ t= Events.E0 /\ res=Vptr b Ptrofs.zero /\
Mem.alloc m (- size_chunk Mptr) (Ptrofs.unsigned sz) = (m1, b) /\
Mem.store Mptr m1 b (- size_chunk Mptr) (Vptrofs sz) = Some m2.
Lemma deref_locT_ax2 a m loc ofs v (D:deref_loc (typeof a) m loc ofs v):
exists T, deref_locT (typeof a) m loc ofs v T.
Lemma deref_locT_fun a m loc ofs v1 T1 (D1:deref_locT (typeof a) m loc ofs v1 T1)
v2 T2 (D2:deref_locT (typeof a) m loc ofs v2 T2): (v1,T1)=(v2,T2).