src/HOL/Tools/Sledgehammer/sledgehammer_util.ML
changeset 54062 427380d5d1d7
parent 53815 e8aa538e959e
child 54116 ba709c934470
equal deleted inserted replaced
54061:6807b8e95adb 54062:427380d5d1d7
   160                            (print_mode_value ())) f x
   160                            (print_mode_value ())) f x
   161 
   161 
   162 fun hackish_string_of_term ctxt =
   162 fun hackish_string_of_term ctxt =
   163   with_vanilla_print_mode (Syntax.string_of_term ctxt) #> simplify_spaces
   163   with_vanilla_print_mode (Syntax.string_of_term ctxt) #> simplify_spaces
   164 
   164 
   165 val spying_version = "b"
   165 val spying_version = "c"
   166 
   166 
   167 fun spying false _ = ()
   167 fun spying false _ = ()
   168   | spying true f =
   168   | spying true f =
   169     let
   169     let
   170       val (state, i, tool, message) = f ()
   170       val (state, i, tool, message) = f ()