changeset 24976 | 821628d16552 |
parent 24712 | 64ed05609568 |
child 26336 | a0e2b706ce73 |
--- a/src/HOL/Import/proof_kernel.ML Thu Oct 11 18:58:34 2007 +0200 +++ b/src/HOL/Import/proof_kernel.ML Thu Oct 11 19:10:17 2007 +0200 @@ -2030,7 +2030,7 @@ names' (thy1,th) val _ = ImportRecorder.add_specification names' th - val res' = Drule.unvarify res + val res' = Thm.unvarify res val hth = HOLThm(rens,res') val rew = rewrite_hol4_term (concl_of res') thy' val th = equal_elim rew res'