# HG changeset patch # User blanchet # Date 1410458489 -7200 # Node ID 21fac057681e45ee9defda8adf12a7b5548e7bdb # Parent 18e6cb6a52977acbde6fcbb75a7dcc131fde1746 tuned comment diff -r 18e6cb6a5297 -r 21fac057681e src/HOL/Tools/Ctr_Sugar/ctr_sugar.ML --- 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 =