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