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/variable.ML
changeset 81512 c1aa8a61ee65
parent 81505 01f2936ec85e
child 81517 1b33a7a3c80c 
--- a/src/Pure/variable.ML	Sat Nov 30 13:40:57 2024 +0100
+++ b/src/Pure/variable.ML	Sat Nov 30 13:41:38 2024 +0100
@@ -594,7 +594,7 @@
 
 fun invent_types Ss ctxt =
   let
-    val tfrees = Name.invent (names_of ctxt) Name.aT (length Ss) ~~ Ss;
+    val tfrees = Name.invent_types (names_of ctxt) Ss;
     val ctxt' = fold (declare_constraints o Logic.mk_type o TFree) tfrees ctxt;
   in (tfrees, ctxt') end;
isabelle