suppress somewhat pointless description (NB: this is displayed in 'print_methods');
authorwenzelm
Sat, 09 Jan 2016 20:56:00 +0100
changeset 62112 092046740f17
parent 62111 e2b768b0035d
child 62113 16de2a9b5b3d
suppress somewhat pointless description (NB: this is displayed in 'print_methods');
src/HOL/Eisbach/method_closure.ML
--- a/src/HOL/Eisbach/method_closure.ML	Sat Jan 09 13:31:31 2016 +0100
+++ b/src/HOL/Eisbach/method_closure.ML	Sat Jan 09 20:56:00 2016 +0100
@@ -272,8 +272,7 @@
     |> Proof_Context.restore_naming lthy
     |> put_closure name
         {vars = term_args', named_thms = named_thms, methods = method_args, body = text'}
-    |> Method.local_setup name (parser term_args' (recursive_method term_args' text'))
-        "(defined in Eisbach)"
+    |> Method.local_setup name (parser term_args' (recursive_method term_args' text')) ""
     |> pair (Local_Theory.full_name lthy name)
   end;