Section CONSTRUCTORS.
Variable ge: genv.
Variable fn: function.
(** 32-bit integer constants and arithmetic *)
(** 64-bit integer constants and arithmetic *)
(** Add offset to pointer *)
(** Translation of conditional branches *)

Lemma transl_cond_float_correct:
forall (rs: regset) m cmp rd r1 r2 insn normal v,
transl_cond_float cmp rd r1 r2 = (insn, normal) ->
v = (if normal then Val.cmpf cmp rs#r1 rs#r2 else Val.notbool (Val.cmpf cmp rs#r1 rs#r2)) ->
exec_instr ge fn insn rs m = Next (nextinstr (rs#rd <- v)) m.