Parse.pp_term_without_overloads_on : string list -> Portable.ppstream -> term -> unit
> val termpp = pp_term_without_overloads_on ["+"]; val termpp = fn: ppstream -> term -> unit > val _ = Portable.pprint termpp ``x + y`` before print"\n"; arithmetic$+ x y >