Definition unOp_result_type op t :=
match op with
| Cop.Onotbool =>match t with
| Tint _ _ _ => Tint IBool Signed noattr
| Tlong _ _ => Tint IBool Signed noattr
| Tpointer _ _ => Tint I32 Signed noattr
| Tfloat _ _ => Tint IBool Signed noattr
| Tarray _ _ _ => Tint IBool Signed noattr
| Tfunction _ _ _ => Tint IBool Signed noattr
| _ => Tvoid
end
| Cop.Onotint => match t with
| Tint _ _ _ => Tint I32 Signed noattr
| Tlong _ _ => Tlong Signed noattr
| _ => Tvoid
end
| Cop.Oneg => match t with
| Tint _ _ _ => Tint I32 Signed noattr
| Tlong _ _ => Tlong Signed noattr
| Tfloat _ _ => t
| _ => Tvoid
end
| Cop.Oabsfloat => t
end.

Lemma tc_val_of_bool_int_type:
forall b t, is_int_type t = true ->
tc_val t (Val.of_bool b).