src/HOL/Tools/rewrite_hol_proof.ML
changeset 35845 e5980f0ad025
parent 33722 e588744f14da
child 36042 85efdadee8ae
--- a/src/HOL/Tools/rewrite_hol_proof.ML	Sat Mar 20 02:23:41 2010 +0100
+++ b/src/HOL/Tools/rewrite_hol_proof.ML	Sat Mar 20 17:33:11 2010 +0100
@@ -16,7 +16,7 @@
 open Proofterm;
 
 val rews = map (pairself (Proof_Syntax.proof_of_term @{theory} true) o
-    Logic.dest_equals o Logic.varify o Proof_Syntax.read_term @{theory} propT)
+    Logic.dest_equals o Logic.varify_global o Proof_Syntax.read_term @{theory} propT)
 
   (** eliminate meta-equality rules **)