src/HOL/BNF/Tools/bnf_gfp.ML
changeset 51850 106afdf5806c
parent 51839 5c552de1d8d1
child 51859 09d24ea3f140
equal deleted inserted replaced
51849:19ee0cebe76d 51850:106afdf5806c
     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;