author | blanchet |
Thu, 11 Sep 2014 20:01:29 +0200 | |
changeset 58317 | 21fac057681e |
parent 58316 | 18e6cb6a5297 |
child 58318 | f95754ca7082 |
--- 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 =