changeset 58317 | 21fac057681e |
parent 58289 | eb93bc67d361 |
child 58335 | a5a3b576fcfb |
--- a/src/HOL/Tools/Ctr_Sugar/ctr_sugar.ML Thu Sep 11 19:59:46 2014 +0200 +++ b/src/HOL/Tools/Ctr_Sugar/ctr_sugar.ML Thu Sep 11 20:01:29 2014 +0200 @@ -1033,7 +1033,7 @@ (Morphism.fact phi distinct_thms) (Morphism.fact phi case_thms)) I) |> Local_Theory.notes (anonymous_notes @ notes) - (* for "old_datatype_realizer.ML": *) + (* for "datatype_realizer.ML": *) |>> name_noted_thms fcT_name exhaustN; val ctr_sugar =