equal
deleted
inserted
replaced
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" |