src/HOL/Tools/Ctr_Sugar/ctr_sugar.ML
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 =