(** Translation of conditions *)

Lemma compare_int_spec:
forall rs v1 v2 m,
let rs1 := nextinstr (compare_int rs v1 v2 m) in
rs1#CN = Val.negative (Val.sub v1 v2)
/\ rs1#CZ = Val.cmpu (Mem.valid_pointer m) Ceq v1 v2
/\ rs1#CC = Val.cmpu (Mem.valid_pointer m) Cge v1 v2
/\ rs1#CV = Val.sub_overflow v1 v2.