diff -r bdab93ccfaf8 -r 5b946c81dfbf src/HOL/Nitpick_Examples/Refute_Nits.thy --- a/src/HOL/Nitpick_Examples/Refute_Nits.thy Mon Jan 11 21:20:44 2016 +0100 +++ b/src/HOL/Nitpick_Examples/Refute_Nits.thy Mon Jan 11 21:21:02 2016 +0100 @@ -1273,10 +1273,20 @@ consts inverse :: "'a \ 'a" -defs (overloaded) -inverse_bool: "inverse (b::bool) \ \ b" -inverse_set: "inverse (S::'a set) \ -S" -inverse_pair: "inverse p \ (inverse (fst p), inverse (snd p))" +overloading inverse_bool \ "inverse :: bool \ bool" +begin + definition "inverse (b::bool) \ \ b" +end + +overloading inverse_set \ "inverse :: 'a set \ 'a set" +begin + definition "inverse (S::'a set) \ -S" +end + +overloading inverse_pair \ "inverse :: 'a \ 'b \ 'a \ 'b" +begin + definition "inverse_pair p \ (inverse (fst p), inverse (snd p))" +end lemma "inverse b" nitpick [expect = genuine]