changeset 59433 | 9da5b2c61049 |
parent 59058 | a78612c67ec0 |
child 61325 | 1cfc476198c9 |
--- a/src/HOL/Tools/Nitpick/nitpick_kodkod.ML Sat Jan 24 21:37:31 2015 +0100 +++ b/src/HOL/Tools/Nitpick/nitpick_kodkod.ML Sat Jan 24 22:00:24 2015 +0100 @@ -303,7 +303,7 @@ fun bound_comment ctxt debug nick T R = short_name nick ^ - (if debug then " :: " ^ unyxml (Syntax.string_of_typ ctxt T) else "") ^ + (if debug then " :: " ^ YXML.content_of (Syntax.string_of_typ ctxt T) else "") ^ " : " ^ string_for_rep R fun bound_for_plain_rel ctxt debug (u as FreeRel (x, T, R, nick)) =