prioritize_overload : hol_type -> unit
# prioritize_overload `:real`;; val it : unit = () # type_of `x + y`;; val it : hol_type = `:real`
# prioritize_overload `:int`;; val it : unit = () # type_of `x + y`;; val it : hol_type = `:int`
# type_of `(x:real) + y`;; val it : hol_type = `:real`