more standard SZS output
authorblanchet
Wed, 18 Apr 2012 23:13:10 +0200
changeset 47564 8074b18d8d76
parent 47563 01f687b84aff
child 47565 762eb0dacaa6
more standard SZS output
src/HOL/Tools/Nitpick/nitpick.ML
--- a/src/HOL/Tools/Nitpick/nitpick.ML	Wed Apr 18 22:40:25 2012 +0200
+++ b/src/HOL/Tools/Nitpick/nitpick.ML	Wed Apr 18 23:13:10 2012 +0200
@@ -693,7 +693,7 @@
                     | pretties => pstrs " for " @ pretties) @
                    [Pretty.str ":\n"])),
               Pretty.indent indent_size reconstructed_model]);
-         print_t (fn () => "% SZS output stop");
+         print_t (K "% SZS output end FiniteModel");
          if genuine then
            (if check_genuine andalso standard then
               case prove_hol_model scope tac_timeout free_names sel_names