called the induction principle "unsafe" instead of "test".
--- a/src/HOL/Nominal/nominal_package.ML Wed Nov 09 18:01:33 2005 +0100
+++ b/src/HOL/Nominal/nominal_package.ML Thu Nov 10 00:36:26 2005 +0100
@@ -1088,7 +1088,7 @@
(AxClass.intro_classes_tac [] THEN resolve_tac ths 1)) newTs thy
end) (atoms ~~ finite_supp_thms) |>>
Theory.add_path big_name |>>>
- PureThy.add_axioms_i [(("induct_test", induct), [case_names_induct])] |>>
+ PureThy.add_axioms_i [(("induct_unsafe", induct), [case_names_induct])] |>>
Theory.parent_path;
in