Instance CompSpecs : compspecs. make_compspecs prog. Defined.
Definition Vprog : varspecs. mk_varspecs prog. Defined.

(* Specifications: *)
Lemma decode_float32_int32:
forall (bl: list memval) (x: float32),
size_chunk Mfloat32 = Z.of_nat (Datatypes.length bl) ->
decode_val Mfloat32 bl = Vsingle x ->
decode_val Mint32 bl = Vint (Float32.to_bits x).
Lemma NOT_decode_int32_float32:
~ (forall (bl: list memval) (x: float32),
size_chunk Mfloat32 = Z.of_nat (Datatypes.length bl) ->
decode_val Mint32 bl = Vint (Float32.to_bits x) ->
decode_val Mfloat32 bl = Vsingle x).
Lemma decode_float32_iff_int32:
forall (bl: list Memdata.memval) (x: float32),
Memdata.size_chunk Mfloat32 = Z.of_nat (Datatypes.length bl) ->
(Memdata.decode_val Mfloat32 bl = Vsingle x <->
Memdata.decode_val Mint32 bl = Vint (Float32.to_bits x)).