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_of_bool:
forall x i3 s3 a3, tc_val (Tint i3 s3 a3) (Val.of_bool x).