Abort. (* broken in CompCert 2.7 *)

(* Specifications: *)
Lemma typed_false_cmp:
forall op i j ,
typed_false tint (force_val (sem_cmp op tint tint (Vint i) (Vint j))) ->
Int.cmp (negate_comparison op) i j = true.
Lemma typed_true_cmp:
forall op i j,
typed_true tint (force_val (sem_cmp op tint tint (Vint i) (Vint j))) ->
Int.cmp op i j = true.