# HG changeset patch
# User blanchet
# Date 1384260444 -3600
# Node ID 60cd3ebf2d94dc4d57a8168f416008c8f4d61c27
# Parent  100c0eaf63d5c9bb0b80ff8962cd652cc0e2ca8c
export useful ML function

diff -r 100c0eaf63d5 -r 60cd3ebf2d94 src/HOL/Tools/ctr_sugar.ML
--- 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