src/Pure/Tools/find_theorems.ML
changeset 52851 e71b5160f242
parent 52788 da1fdbfebd39
child 52854 92932931bd82
     1.1 --- a/src/Pure/Tools/find_theorems.ML	Fri Aug 02 16:00:14 2013 +0200
     1.2 +++ b/src/Pure/Tools/find_theorems.ML	Fri Aug 02 16:02:06 2013 +0200
     1.3 @@ -636,4 +636,16 @@
     1.4  
     1.5  end;
     1.6  
     1.7 +
     1.8 +
     1.9 +(** print function **)
    1.10 +
    1.11 +val _ = Command.print_function "find_theorems"
    1.12 +  (fn {args, ...} =>
    1.13 +    if null args then NONE
    1.14 +    else
    1.15 +      SOME {delay = NONE, pri = 0, persistent = false,
    1.16 +        print_fn = fn _ => fn st =>
    1.17 +          writeln (cat_lines ("find_theorems" :: args))});
    1.18 +
    1.19  end;