changeset 43085 | 0a2f5b86bdd7 |
parent 42958 | 034fc4d0c909 |
child 43827 | 62d64709af3b |
--- a/src/HOL/Tools/Nitpick/nitpick_hol.ML Tue May 31 11:21:47 2011 +0200 +++ b/src/HOL/Tools/Nitpick/nitpick_hol.ML Tue May 31 16:38:36 2011 +0200 @@ -969,7 +969,7 @@ handle TYPE ("Nitpick_HOL.card_of_type", _, _) => default_card) -(* Similar to "Sledgehammer_ATP_Translate.tiny_card_of_type". *) +(* Similar to "ATP_Translate.tiny_card_of_type". *) fun bounded_exact_card_of_type hol_ctxt finitizable_dataTs max default_card assigns T = let