changeset 19873 | 588329441a78 |
parent 19686 | 83611262823e |
child 19998 | c8018518e112 |
--- a/src/HOL/Import/proof_kernel.ML Tue Jun 13 15:42:52 2006 +0200 +++ b/src/HOL/Import/proof_kernel.ML Tue Jun 13 23:41:31 2006 +0200 @@ -2029,7 +2029,7 @@ names' (thy1,th) val _ = ImportRecorder.add_specification names' th - val res' = Drule.freeze_all res + val res' = Drule.unvarify res val hth = HOLThm(rens,res') val rew = rewrite_hol4_term (concl_of res') thy' val th = equal_elim rew res'