src/HOL/Nominal/nominal_induct.ML
changeset 18265 f3f81becc1f1
parent 18158 57cba2a340f2
child 18283 f8a49f09a202
--- a/src/HOL/Nominal/nominal_induct.ML	Sun Nov 27 05:00:43 2005 +0100
+++ b/src/HOL/Nominal/nominal_induct.ML	Sun Nov 27 05:09:43 2005 +0100
@@ -83,12 +83,5 @@
 val nominal_induct_method =
   Method.RAW_METHOD_CASES o nominal_induct_tac oo (#2 oo Method.syntax nominal_induct_args);
 
-(* nominal_induc_method needs to have the type
-
-   Args.src -> Proof.context -> Proof.method
-
-   CHECK THAT
-
-*)
 
 end;