changeset 38748 | 69fea359d3f8 |
parent 38698 | d19c3a7ce38b |
child 38752 | 6628adcae4a7 |
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_translate.ML Thu Aug 26 00:49:04 2010 +0200 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer_translate.ML Thu Aug 26 00:49:38 2010 +0200 @@ -407,7 +407,7 @@ 16383 (* large number *) else if full_types then 0 - else case strip_prefix_and_undo_ascii const_prefix s of + else case strip_prefix_and_unascii const_prefix s of SOME s' => num_type_args thy (invert_const s') | NONE => 0) | min_arity_of _ _ (SOME the_const_tab) s =