src/HOL/Library/Code_Abstract_Nat.thy
changeset 59586 ddf6deaadfe8
parent 59582 0fbed69ff081
child 59621 291934bac95e
     1.1 --- a/src/HOL/Library/Code_Abstract_Nat.thy	Wed Mar 04 20:50:20 2015 +0100
     1.2 +++ b/src/HOL/Library/Code_Abstract_Nat.thy	Wed Mar 04 22:05:01 2015 +0100
     1.3 @@ -79,7 +79,7 @@
     1.4            Thm.implies_elim
     1.5             (Conv.fconv_rule (Thm.beta_conversion true)
     1.6               (Drule.instantiate'
     1.7 -               [SOME (Thm.ctyp_of_term ct)] [SOME (Thm.lambda cv ct),
     1.8 +               [SOME (Thm.ctyp_of_cterm ct)] [SOME (Thm.lambda cv ct),
     1.9                   SOME (Thm.lambda cv' (rhs_of thm)), NONE, SOME cv']
    1.10                 Suc_if_eq)) (Thm.forall_intr cv' thm)
    1.11        in