(** 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.