Instance CompSpecs : compspecs.Definition Vprog : varspecs.

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