Definition inttype2init_data (sz: intsize) : (int -> init_data) :=
 match sz with
 | IBool  =>  Init_int8
 | I8  =>  Init_int8
 | I16 =>  Init_int16
 | I32 =>  Init_int32
 end.Definition notboolsize (sz: intsize) : Prop :=
  match sz with IBool => False | _ => True end.

(* Specifications: *)
Lemma offset_zero_globals_of_env: forall rho i, offset_val 0 (globals_of_env rho i) = globals_of_env rho i.