equal
deleted
inserted
replaced
637 else if ngoals > maxgoals then |
637 else if ngoals > maxgoals then |
638 pretty_subgoals (take (maxgoals, As)) @ |
638 pretty_subgoals (take (maxgoals, As)) @ |
639 [Pretty.str ("A total of " ^ string_of_int ngoals ^ " subgoals...")] |
639 [Pretty.str ("A total of " ^ string_of_int ngoals ^ " subgoals...")] |
640 else pretty_subgoals As) @ |
640 else pretty_subgoals As) @ |
641 pretty_ffpairs tpairs @ |
641 pretty_ffpairs tpairs @ |
642 (if types andalso ! show_consts then pretty_consts prop else []) @ |
642 (if ! show_consts then pretty_consts prop else []) @ |
643 (if types then pretty_vars prop else []) @ |
643 (if types then pretty_vars prop else []) @ |
644 (if sorts then pretty_varsT prop else []); |
644 (if sorts then pretty_varsT prop else []); |
645 in |
645 in |
646 setmp show_no_free_types true |
646 setmp show_no_free_types true |
647 (setmp show_types (! show_types orelse ! show_sorts) |
647 (setmp show_types (! show_types orelse ! show_sorts) |