(** Translation of conditions *)

Lemma compare_float32_spec:
forall rs f1 f2,
let rs1 := nextinstr (compare_float32 rs (Vsingle f1) (Vsingle f2)) in
rs1#CN = Val.of_bool (Float32.cmp Clt f1 f2)
/\ rs1#CZ = Val.of_bool (Float32.cmp Ceq f1 f2)
/\ rs1#CC = Val.of_bool (negb (Float32.cmp Clt f1 f2))
/\ rs1#CV = Val.of_bool (negb (Float32.cmp Ceq f1 f2 || Float32.cmp Clt f1 f2 || Float32.cmp Cgt f1 f2)).