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

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