src/HOL/Import/proof_kernel.ML
changeset 29265 5b4247055bd7
parent 28965 1de908189869
child 29270 0eade173f77e
     1.1 --- a/src/HOL/Import/proof_kernel.ML	Wed Dec 31 00:08:11 2008 +0100
     1.2 +++ b/src/HOL/Import/proof_kernel.ML	Wed Dec 31 00:08:13 2008 +0100
     1.3 @@ -1,6 +1,5 @@
     1.4  (*  Title:      HOL/Import/proof_kernel.ML
     1.5 -    ID:         $Id$
     1.6 -    Author:     Sebastian Skalberg (TU Muenchen), Steven Obua
     1.7 +    Author:     Sebastian Skalberg and Steven Obua, TU Muenchen
     1.8  *)
     1.9  
    1.10  signature ProofKernel =
    1.11 @@ -1149,7 +1148,7 @@
    1.12        val ct = cprop_of thm
    1.13        val t = term_of ct
    1.14        val thy = theory_of_cterm ct
    1.15 -      val frees = term_frees t
    1.16 +      val frees = OldTerm.term_frees t
    1.17        val freenames = add_term_free_names (t, [])
    1.18        fun is_old_name n = n mem_string freenames
    1.19        fun name_of (Free (n, _)) = n