changeset 53037 | e5fa456890b4 |
parent 53036 | 7dd103c29f9d |
child 53038 | dd5ea8a51af0 |
--- a/src/HOL/BNF/Tools/bnf_util.ML Fri Aug 16 18:14:58 2013 +0200 +++ b/src/HOL/BNF/Tools/bnf_util.ML Fri Aug 16 18:36:55 2013 +0200 @@ -78,6 +78,7 @@ val binder_fun_types: typ -> typ list val body_fun_type: typ -> typ val num_binder_types: typ -> int + val strip_fun_type: typ -> typ list * typ val strip_typeN: int -> typ -> typ list * typ val mk_predT: typ list -> typ