# HG changeset patch
# User blanchet
# Date 1427384562 -3600
# Node ID 41f0804b7309115ae866650ecff7bd293a2fdc6e
# Parent  75433c3ee2036d7a02608ace29c266acbbe3a55f
export more functions

diff -r 75433c3ee203 -r 41f0804b7309 src/HOL/Tools/BNF/bnf_fp_def_sugar.ML
--- a/src/HOL/Tools/BNF/bnf_fp_def_sugar.ML	Thu Mar 26 12:00:32 2015 +0100
+++ b/src/HOL/Tools/BNF/bnf_fp_def_sugar.ML	Thu Mar 26 16:42:42 2015 +0100
@@ -83,6 +83,8 @@
 
   val flat_corec_preds_predsss_gettersss: 'a list -> 'a list list list -> 'a list list list ->
     'a list
+  val mk_ctor: typ list -> term -> term
+  val mk_dtor: typ list -> term -> term
   val liveness_of_fp_bnf: int -> BNF_Def.bnf -> bool list
   val nesting_bnfs: Proof.context -> typ list list list -> typ list -> BNF_Def.bnf list