signature pred_setpp = sig val univ_printer : term_grammar.userprinter val setcomprehension_printer : term_grammar.userprinter end
HOL 4, Kananaskis-14