src/Pure/locale.ML
changeset 8908 25f2bdc02123
parent 8720 840c75ab2a7f
child 10349 78434c9a54fd
equal deleted inserted replaced
8907:813fabceec00 8908:25f2bdc02123
   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)