(** * Correctness of PowerPC constructor functions *)
Section CONSTRUCTORS.
Variable ge: genv.
Variable fn: function.
(** Properties of comparisons. *)

Lemma compare_float_spec:
forall rs v1 v2,
let rs1 := nextinstr (compare_float rs v1 v2) in
rs1#CR0_0 = Val.cmpf Clt v1 v2
/\ rs1#CR0_1 = Val.cmpf Cgt v1 v2
/\ rs1#CR0_2 = Val.cmpf Ceq v1 v2
/\ forall r', r' <> CR0_0 -> r' <> CR0_1 -> r' <> CR0_2 -> r' <> CR0_3 -> r' <> PC -> rs1#r' = rs#r'.