equal
deleted
inserted
replaced
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) => |