src/HOL/Tools/ctr_sugar.ML
changeset 54399 60cd3ebf2d94
parent 54397 f4b4fa25ce56
child 54400 418a183fbe21
--- a/src/HOL/Tools/ctr_sugar.ML	Tue Nov 12 13:47:24 2013 +0100
+++ b/src/HOL/Tools/ctr_sugar.ML	Tue Nov 12 13:47:24 2013 +0100
@@ -36,6 +36,7 @@
   val transfer_ctr_sugar: Proof.context -> ctr_sugar -> ctr_sugar
   val ctr_sugar_of: Proof.context -> string -> ctr_sugar option
   val ctr_sugars_of: Proof.context -> ctr_sugar list
+  val register_ctr_sugar: string -> ctr_sugar -> local_theory -> local_theory
 
   val rep_compat_prefix: string