Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Tools/rewrite_hol_proof.ML
changeset 27253 ffbe8b4ebd22
parent 26636 65343a5ac627
child 28262 aa7ca36d67fd 
--- 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 **)
isabelle