src/HOL/Tools/Transfer/transfer_bnf.ML
changeset 60801 7664e0916eec
parent 60728 26ffdb966759
child 61348 d7215449be83
--- a/src/HOL/Tools/Transfer/transfer_bnf.ML	Mon Jul 27 16:35:12 2015 +0200
+++ b/src/HOL/Tools/Transfer/transfer_bnf.ML	Mon Jul 27 17:44:55 2015 +0200
@@ -359,7 +359,7 @@
         val kill_True = Local_Defs.unfold lthy [@{thm HOL.simp_thms(21)}]
       in
         thm
-        |> Drule.instantiate' cTs cts
+        |> Thm.instantiate' cTs cts
         |> Conv.fconv_rule (HOLogic.Trueprop_conv (Conv.arg_conv
           (Raw_Simplifier.rewrite lthy false @{thms eq_onp_top_eq_eq[symmetric, THEN eq_reflection]})))
         |> Local_Defs.unfold lthy eq_onps