author | blanchet |
Wed, 15 Dec 2010 11:26:29 +0100 | |
changeset 41149 | d64956b03c70 |
parent 41148 | f5229ab54284 |
child 41150 | 54b3c9c05664 |
src/HOL/Tools/Sledgehammer/sledgehammer_atp_translate.ML | file | annotate | diff | comparison | revisions |
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_atp_translate.ML Wed Dec 15 11:26:29 2010 +0100 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer_atp_translate.ML Wed Dec 15 11:26:29 2010 +0100 @@ -74,6 +74,7 @@ license to do unsound reasoning if the type system is "overloaded_args". *) fun is_overloaded thy s = not (!precise_overloaded_args) orelse + s = @{const_name finite} orelse (s <> @{const_name HOL.eq} andalso length (Defs.specifications_of (Theory.defs_of thy) s) > 1)