Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
qualified DatatypePackage.distinct_simproc;
authorwenzelm
Mon, 09 Jun 2008 17:07:10 +0200
changeset 27096 d4145c286bd1
parent 27095 c1c27955d7dd
child 27097 9a6db5d8ee8c
qualified DatatypePackage.distinct_simproc;
src/HOL/Tools/datatype_codegen.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Tools/datatype_codegen.ML	Mon Jun 09 17:07:08 2008 +0200
+++ b/src/HOL/Tools/datatype_codegen.ML	Mon Jun 09 17:07:10 2008 +0200
@@ -416,7 +416,7 @@
     val inject2 = (#inject o DatatypePackage.the_datatype thy) dtco;
     val ctxt = ProofContext.init thy;
     val simpset = Simplifier.context ctxt
-      (MetaSimplifier.empty_ss addsimprocs [distinct_simproc]);
+      (MetaSimplifier.empty_ss addsimprocs [DatatypePackage.distinct_simproc]);
     val cos = map (fn (co, tys) =>
         (Const (co, tys ---> Type (dtco, map TFree vs)), tys)) cs;
     val tac = ALLGOALS (simp_tac simpset)
isabelle