author | wenzelm |
Wed, 18 Jun 2008 18:55:01 +0200 | |
changeset 27253 | ffbe8b4ebd22 |
parent 27252 | 042aebff17e1 |
child 27254 | 0f8106808e66 |
--- a/src/HOL/Tools/rewrite_hol_proof.ML Wed Jun 18 18:55:00 2008 +0200 +++ b/src/HOL/Tools/rewrite_hol_proof.ML Wed Jun 18 18:55:01 2008 +0200 @@ -17,7 +17,7 @@ open Proofterm; val rews = map (pairself (ProofSyntax.proof_of_term (the_context ()) Symtab.empty true) o - Logic.dest_equals o Logic.varify o ProofSyntax.read_term (the_context ()) propT) + Logic.dest_equals o Logic.varify o ProofSyntax.read_term @{theory} propT) (** eliminate meta-equality rules **)