src/HOLCF/Tools/fixrec_package.ML
changeset 28965 1de908189869
parent 28084 a05ca48ef263
child 29006 abe0f11cfa4e
equal deleted inserted replaced
28963:f6d9e0e0b153 28965:1de908189869
     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