src/HOL/Library/Code_Abstract_Nat.thy
changeset 60801 7664e0916eec
parent 60500 903bb1495239
child 69216 1a52baa70aed
     1.1 --- a/src/HOL/Library/Code_Abstract_Nat.thy	Mon Jul 27 16:35:12 2015 +0200
     1.2 +++ b/src/HOL/Library/Code_Abstract_Nat.thy	Mon Jul 27 17:44:55 2015 +0200
     1.3 @@ -77,7 +77,7 @@
     1.4          val thm' =
     1.5            Thm.implies_elim
     1.6             (Conv.fconv_rule (Thm.beta_conversion true)
     1.7 -             (Drule.instantiate'
     1.8 +             (Thm.instantiate'
     1.9                 [SOME (Thm.ctyp_of_cterm ct)] [SOME (Thm.lambda cv ct),
    1.10                   SOME (Thm.lambda cv' (rhs_of thm)), NONE, SOME cv']
    1.11                 Suc_if_eq)) (Thm.forall_intr cv' thm)