src/HOL/Tools/Function/induction_schema.ML
changeset 60801 7664e0916eec
parent 60695 757549b4bbe6
child 61340 ce74c00de6b7
--- a/src/HOL/Tools/Function/induction_schema.ML	Mon Jul 27 16:35:12 2015 +0200
+++ b/src/HOL/Tools/Function/induction_schema.ML	Mon Jul 27 17:44:55 2015 +0200
@@ -374,7 +374,7 @@
           |> Thm.cterm_of ctxt''
       in
         indthm
-        |> Drule.instantiate' [] [SOME inst]
+        |> Thm.instantiate' [] [SOME inst]
         |> simplify (put_simpset Sum_Tree.sumcase_split_ss ctxt'')
         |> Conv.fconv_rule (ind_rulify ctxt'')
       end