changeset 59058 | a78612c67ec0 |
parent 54742 | 7a86358a3c0b |
child 59498 | 50b60f501b05 |
--- a/src/Pure/Isar/local_defs.ML Wed Nov 26 16:55:43 2014 +0100 +++ b/src/Pure/Isar/local_defs.ML Wed Nov 26 20:05:34 2014 +0100 @@ -149,7 +149,7 @@ if t aconv u then (asm, false) else (Drule.abs_def (Drule.gen_all asm), true)) end))); - in (pairself (map #1) (List.partition #2 defs_asms), th') end + in (apply2 (map #1) (List.partition #2 defs_asms), th') end end; (*