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 >