src/Tools/induct_tacs.ML
changeset 42361 23f352990944
parent 40722 441260986b63
child 45133 2214ba5bdfff
--- a/src/Tools/induct_tacs.ML	Sat Apr 16 15:47:52 2011 +0200
+++ b/src/Tools/induct_tacs.ML	Sat Apr 16 16:15:37 2011 +0200
@@ -34,7 +34,7 @@
         SOME rule => rule
       | NONE =>
           (case Induct.find_casesT ctxt
-              (#2 (check_type ctxt (ProofContext.read_term_schematic ctxt s))) of
+              (#2 (check_type ctxt (Proof_Context.read_term_schematic ctxt s))) of
             rule :: _ => rule
           | [] => @{thm case_split}));
     val _ = Method.trace ctxt [rule];