src/HOL/Tools/Sledgehammer/sledgehammer_reconstruct.ML
changeset 50266 e8173d1fa725
parent 50264 a9ec48b98734
child 50267 1da2e67242d6
equal deleted inserted replaced
50265:9eafa567e061 50266:e8173d1fa725
   201         NONE
   201         NONE
   202     end
   202     end
   203 
   203 
   204 
   204 
   205 (** one-liner reconstructor proofs **)
   205 (** one-liner reconstructor proofs **)
   206 
       
   207 fun string_for_label (s, num) = s ^ string_of_int num
       
   208 
   206 
   209 fun show_time NONE = ""
   207 fun show_time NONE = ""
   210   | show_time (SOME ext_time) = " (" ^ string_from_ext_time ext_time ^ ")"
   208   | show_time (SOME ext_time) = " (" ^ string_from_ext_time ext_time ^ ")"
   211 
   209 
   212 (* FIXME: Various bugs, esp. with "unfolding"
   210 (* FIXME: Various bugs, esp. with "unfolding"