(** Translation of conditions *)

Lemma compare_float_spec:
forall rs f1 f2,
let rs1 := nextinstr (compare_float rs (Vfloat f1) (Vfloat f2)) in
rs1#CN = Val.of_bool (Float.cmp Clt f1 f2)
/\ rs1#CZ = Val.of_bool (Float.cmp Ceq f1 f2)
/\ rs1#CC = Val.of_bool (negb (Float.cmp Clt f1 f2))
/\ rs1#CV = Val.of_bool (negb (Float.cmp Ceq f1 f2 || Float.cmp Clt f1 f2 || Float.cmp Cgt f1 f2)).