ruct (Int.cmp op i j); inv H; auto.
Qed.

Definition Zcmp (op: comparison) : Z -> Z -> Prop :=
 match op with
 | Ceq => eq
 | Cne => (fun i j => i<>j)
 | Clt => Z.lt
 | Cle => Z.le
 | Cgt => Z.gt
 | Cg

Lemma typed_true_cmp_repr: forall op i j, repable_signed i -> repable_signed j -> typed_true tint (force_val (sem_cmp op tint tint (Vint (Int.repr i))