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];