equal
deleted
inserted
replaced
9 |
9 |
10 signature BNF_GFP = |
10 signature BNF_GFP = |
11 sig |
11 sig |
12 val construct_gfp: mixfix list -> (string * sort) list option -> binding list -> binding list -> |
12 val construct_gfp: mixfix list -> (string * sort) list option -> binding list -> binding list -> |
13 binding list -> binding list list -> typ list * typ list list -> BNF_Def.bnf list -> |
13 binding list -> binding list list -> typ list * typ list list -> BNF_Def.bnf list -> |
14 local_theory -> BNF_FP.fp_result * local_theory |
14 local_theory -> BNF_FP_Util.fp_result * local_theory |
15 end; |
15 end; |
16 |
16 |
17 structure BNF_GFP : BNF_GFP = |
17 structure BNF_GFP : BNF_GFP = |
18 struct |
18 struct |
19 |
19 |
20 open BNF_Def |
20 open BNF_Def |
21 open BNF_Util |
21 open BNF_Util |
22 open BNF_Tactics |
22 open BNF_Tactics |
23 open BNF_Comp |
23 open BNF_Comp |
24 open BNF_FP |
24 open BNF_FP_Util |
25 open BNF_FP_Def_Sugar |
25 open BNF_FP_Def_Sugar |
26 open BNF_GFP_Util |
26 open BNF_GFP_Util |
27 open BNF_GFP_Tactics |
27 open BNF_GFP_Tactics |
28 |
28 |
29 datatype wit_tree = Wit_Leaf of int | Wit_Node of (int * int * int list) * wit_tree list; |
29 datatype wit_tree = Wit_Leaf of int | Wit_Node of (int * int * int list) * wit_tree list; |