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/Pure/Proof/proofchecker.ML
changeset 43326 47cf4bc789aa
parent 39557 fe5722fce758
child 44057 fda143b5c2f5 
--- a/src/Pure/Proof/proofchecker.ML	Thu Jun 09 17:46:25 2011 +0200
+++ b/src/Pure/Proof/proofchecker.ML	Thu Jun 09 17:51:49 2011 +0200
@@ -100,7 +100,7 @@
 
       | thm_of (vs, names) Hs (Abst (s, SOME T, prf)) =
           let
-            val ([x], names') = Name.variants [s] names;
+            val (x, names') = Name.variant s names;
             val thm = thm_of ((x, T) :: vs, names') Hs prf
           in
             Thm.forall_intr (Thm.cterm_of thy (Free (x, T))) thm
isabelle