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