
diff -r 57dd0b45fc21 -r 7664e0916eec src/HOL/Library/Code_Abstract_Nat.thy
--- a/src/HOL/Library/Code_Abstract_Nat.thy	Mon Jul 27 16:35:12 2015 +0200
+++ b/src/HOL/Library/Code_Abstract_Nat.thy	Mon Jul 27 17:44:55 2015 +0200
@@ -77,7 +77,7 @@
         val thm' =
           Thm.implies_elim
            (Conv.fconv_rule (Thm.beta_conversion true)
-             (Drule.instantiate'
+             (Thm.instantiate'
                [SOME (Thm.ctyp_of_cterm ct)] [SOME (Thm.lambda cv ct),
                  SOME (Thm.lambda cv' (rhs_of thm)), NONE, SOME cv']
                Suc_if_eq)) (Thm.forall_intr cv' thm)




