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/Provers/trancl.ML
changeset 59621 291934bac95e
parent 59582 0fbed69ff081
child 60785 c6f96559e032 
--- a/src/Provers/trancl.ML	Fri Mar 06 14:01:08 2015 +0100
+++ b/src/Provers/trancl.ML	Fri Mar 06 15:58:56 2015 +0100
@@ -94,7 +94,7 @@
   let
     fun inst thm =
       let val SOME (_, _, r', _) = decomp (Thm.concl_of thm)
-      in Drule.cterm_instantiate [(Thm.cterm_of thy r', Thm.cterm_of thy r)] thm end;
+      in Drule.cterm_instantiate [(Thm.global_cterm_of thy r', Thm.global_cterm_of thy r)] thm end;
     fun pr (Asm i) = nth asms i
       | pr (Thm (prfs, thm)) = map pr prfs MRS inst thm;
   in pr end;
isabelle