Instance CompSpecs : compspecs.Definition Vprog : varspecs.

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