export useful ML function
authorblanchet
Tue, 12 Nov 2013 13:47:24 +0100
changeset 54399 60cd3ebf2d94
parent 54398 100c0eaf63d5
child 54400 418a183fbe21
export useful ML function
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