with_flag : 'a ref * 'a -> ('b -> 'c) -> 'b -> 'c
- fun print_term_nl tm = (print_term tm; print "\n"); > val print_term_nl = fn : term -> unit - with_flag (show_types, true) print_term_nl (concl T_DEF); T = ((\(x :bool). x) = (\(x :bool). x)) > val it = () : unit - print_term_nl (concl T_DEF); !P. (!x. ?y. P x y) = ?f. !x. P x (f x) > val it = () : unit