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/Library/simps_case_conv.ML
changeset 59621 291934bac95e
parent 59582 0fbed69ff081
child 59650 ba26118128b7 
--- a/src/HOL/Library/simps_case_conv.ML	Fri Mar 06 14:01:08 2015 +0100
+++ b/src/HOL/Library/simps_case_conv.ML	Fri Mar 06 15:58:56 2015 +0100
@@ -97,7 +97,7 @@
   | import (thm :: thms) ctxt =
     let
       val fun_ct = strip_eq #> fst #> strip_comb #> fst #> Logic.mk_term
-        #> Proof_Context.cterm_of ctxt
+        #> Thm.cterm_of ctxt
       val ct = fun_ct thm
       val cts = map fun_ct thms
       val pairs = map (fn s => (s,ct)) cts
isabelle