src/Pure/simplifier.ML
changeset 59573 d09cc83cdce9
parent 59498 50b60f501b05
child 59621 291934bac95e
--- a/src/Pure/simplifier.ML	Sun Mar 01 14:15:49 2015 +0100
+++ b/src/Pure/simplifier.ML	Sun Mar 01 23:35:41 2015 +0100
@@ -132,8 +132,7 @@
         let
           val lhss' = prep lthy lhss;
           val ctxt' = fold Variable.auto_fixes lhss' lthy;
-        in Variable.export_terms ctxt' lthy lhss' end
-        |> map (Thm.cterm_of (Proof_Context.theory_of lthy)),
+        in Variable.export_terms ctxt' lthy lhss' end |> map (Proof_Context.cterm_of lthy),
        proc = proc,
        identifier = identifier};
   in