author | wenzelm |
Thu, 04 Oct 2001 15:29:37 +0200 | |
changeset 11680 | b5b96188e94c |
parent 11679 | afdbee613f58 |
child 11681 | f5a7b4b203be |
--- a/src/ZF/Tools/inductive_package.ML Thu Oct 04 15:29:22 2001 +0200 +++ b/src/ZF/Tools/inductive_package.ML Thu Oct 04 15:29:37 2001 +0200 @@ -262,7 +262,7 @@ val intrs = ListPair.map prove_intr (map (cterm_of sign1) intr_tms, map intro_tacsf (mk_disj_rls(length intr_tms))) - handle SIMPLIFIER (msg,thm) => (print_thm thm; error msg); + handle MetaSimplifier.SIMPLIFIER (msg,thm) => (print_thm thm; error msg); (********) val dummy = writeln " Proving the elimination rule...";