changeset 60924 | 610794dff23c |
parent 60799 | 57dd0b45fc21 |
child 61168 | dcdfb6355a05 |
--- a/src/Pure/Isar/proof_context.ML Wed Aug 12 21:38:39 2015 +0200 +++ b/src/Pure/Isar/proof_context.ML Thu Aug 13 11:05:19 2015 +0200 @@ -1323,7 +1323,7 @@ if null local_facts then [] else [Pretty.big_list "local facts:" - (map #1 (sort_wrt (#1 o #2) (map (`(pretty_fact ctxt)) local_facts)))] + (map #1 (sort_by (#1 o #2) (map (`(pretty_fact ctxt)) local_facts)))] end; fun print_local_facts verbose ctxt =