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/Tools/Function/fun.ML
changeset 81507 08574da77b4a
parent 67149 e61557884799
child 81512 c1aa8a61ee65 
--- a/src/HOL/Tools/Function/fun.ML	Fri Nov 29 11:26:17 2024 +0100
+++ b/src/HOL/Tools/Function/fun.ML	Fri Nov 29 17:40:15 2024 +0100
@@ -67,7 +67,7 @@
         val (argTs, rT) = chop n (binder_types fT)
           |> apsnd (fn Ts => Ts ---> body_type fT)
 
-        val qs = map Free (Name.invent Name.context "a" n ~~ argTs)
+        val qs = map Free (Name.invent_global "a" n ~~ argTs)
       in
         HOLogic.mk_eq(list_comb (Free (fname, fT), qs),
           Const (\<^const_name>\<open>undefined\<close>, rT))
isabelle