src/HOL/Tools/Ctr_Sugar/ctr_sugar.ML

 (
   type T = ctr_sugar;
   val eq: T * T -> bool = op = o pairself #ctrs;
 );
 
-(* FIXME naming *)
 fun with_repaired_path f (ctr_sugar as {ctrs = ctr1 :: _, ...} : ctr_sugar) thy =
   thy
-  (*|> Sign.root_path*)
+  |> Sign.root_path
   |> Sign.add_path (Long_Name.qualifier (fst (dest_Type (body_type (fastype_of ctr1)))))
-  (*|> (fn thy => f (morph_ctr_sugar (Morphism.transfer_morphism thy) ctr_sugar) thy)*)
-  (*|> Sign.restore_naming thy*);
+  |> (fn thy => f (morph_ctr_sugar (Morphism.transfer_morphism thy) ctr_sugar) thy)
+  |> Sign.restore_naming thy;
 
 fun ctr_sugar_interpretation f = Ctr_Sugar_Interpretation.interpretation (with_repaired_path f);
 
 fun register_ctr_sugar key ctr_sugar =
   Local_Theory.declaration {syntax = false, pervasive = true}