equal
deleted
inserted
replaced
1 (* Title: HOLCF/Tools/fixrec_package.ML |
1 (* Title: HOLCF/Tools/fixrec_package.ML |
2 ID: $Id$ |
|
3 Author: Amber Telfer and Brian Huffman |
2 Author: Amber Telfer and Brian Huffman |
4 |
3 |
5 Recursive function definition package for HOLCF. |
4 Recursive function definition package for HOLCF. |
6 *) |
5 *) |
7 |
6 |
8 signature FIXREC_PACKAGE = |
7 signature FIXREC_PACKAGE = |
9 sig |
8 sig |
10 val legacy_infer_term: theory -> term -> term |
9 val legacy_infer_term: theory -> term -> term |
11 val legacy_infer_prop: theory -> term -> term |
10 val legacy_infer_prop: theory -> term -> term |
12 val add_fixrec: bool -> (Attrib.binding * string) list list -> theory -> theory |
11 val add_fixrec: bool -> (Attrib.binding * string) list list -> theory -> theory |
13 val add_fixrec_i: bool -> ((Name.binding * attribute list) * term) list list -> theory -> theory |
12 val add_fixrec_i: bool -> ((Binding.T * attribute list) * term) list list -> theory -> theory |
14 val add_fixpat: Attrib.binding * string list -> theory -> theory |
13 val add_fixpat: Attrib.binding * string list -> theory -> theory |
15 val add_fixpat_i: (Name.binding * attribute list) * term list -> theory -> theory |
14 val add_fixpat_i: (Binding.T * attribute list) * term list -> theory -> theory |
16 end; |
15 end; |
17 |
16 |
18 structure FixrecPackage: FIXREC_PACKAGE = |
17 structure FixrecPackage: FIXREC_PACKAGE = |
19 struct |
18 struct |
20 |
19 |