src/HOL/Tools/Nitpick/nitpick.ML
changeset 38171 5f2ea92319e0
parent 38170 d74b66ec02ce
child 38182 747f8077b09a
equal deleted inserted replaced
38170:d74b66ec02ce 38171:5f2ea92319e0
   292                    \efficiently."
   292                    \efficiently."
   293                  else
   293                  else
   294                    "\" could not be proved well-founded. Nitpick might need to \
   294                    "\" could not be proved well-founded. Nitpick might need to \
   295                    \unroll it.")))
   295                    \unroll it.")))
   296     val _ = if verbose then List.app print_wf (!wf_cache) else ()
   296     val _ = if verbose then List.app print_wf (!wf_cache) else ()
       
   297     val das_wort_formula = if falsify then "Negated conjecture" else "Formula"
   297     val _ =
   298     val _ =
   298       pprint_d (fn () => Pretty.chunks
   299       pprint_d (fn () => Pretty.chunks
   299           (pretties_for_formulas ctxt "Preprocessed formula" [hd nondef_ts] @
   300           (pretties_for_formulas ctxt das_wort_formula [hd nondef_ts] @
   300            pretties_for_formulas ctxt "Relevant definitional axiom" def_ts @
   301            pretties_for_formulas ctxt "Relevant definitional axiom" def_ts @
   301            pretties_for_formulas ctxt "Relevant nondefinitional axiom"
   302            pretties_for_formulas ctxt "Relevant nondefinitional axiom"
   302                                  (tl nondef_ts)))
   303                                  (tl nondef_ts)))
   303     val _ = List.app (ignore o Term.type_of) (nondef_ts @ def_ts)
   304     val _ = List.app (ignore o Term.type_of) (nondef_ts @ def_ts)
   304             handle TYPE (_, Ts, ts) =>
   305             handle TYPE (_, Ts, ts) =>