Definition tc_numeric_val (v: val) (t: type) : Prop :=
match v,t with
| Vint _, Tint _ _ _ => True
| Vlong _, Tlong _ _ => True
| Vfloat _, Tfloat F64 _ => True
| _, _ => False
end.

Lemma tc_val'_sem_cmp: forall cmp t v1 v2 t1 t2,
is_int_type t = true ->
tc_val' t (force_val2 (Clight_Cop2.sem_cmp cmp t1 t2) v1 v2).