author | blanchet |
Wed, 12 Feb 2014 08:35:56 +0100 | |
changeset 55396 | 91bc9f69a958 |
parent 55395 | 4e79187f847e |
child 55397 | c2506f61fd26 |
--- a/src/HOL/Tools/Function/function_core.ML Wed Feb 12 08:35:56 2014 +0100 +++ b/src/HOL/Tools/Function/function_core.ML Wed Feb 12 08:35:56 2014 +0100 @@ -829,7 +829,7 @@ let val FunctionConfig {domintros, default=default_opt, ...} = config - val default_str = the_default "%x. undefined" default_opt (*FIXME dynamic scoping*) + val default_str = the_default "%x. HOL.undefined" default_opt val fvar = Free (fname, fT) val domT = domain_type fT val ranT = range_type fT