(* 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".

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).