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.
made SML/NJ happy
authorsmolkas
Wed, 10 Jul 2013 12:25:11 +0200
changeset 52557 92ed2926596d
parent 52556 c8357085217c
child 52574 17138170ed7f
made SML/NJ happy
src/HOL/Tools/Sledgehammer/sledgehammer_proof.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_proof.ML	Tue Jul 09 18:45:06 2013 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_proof.ML	Wed Jul 10 12:25:11 2013 +0200
@@ -114,7 +114,7 @@
 
 (** canonical proof labels: 1, 2, 3, ... in post traversal order **)
 
-val canonical_label_ord = pairself snd #> int_ord
+fun canonical_label_ord (((_, i1), (_, i2)) : label * label) = int_ord (i1, i2)
 
 structure Canonical_Lbl_Tab = Table(
   type key = label
isabelle