src/HOL/Tools/primrec.ML
changeset 33968 f94fb13ecbb3
parent 33963 977b94b64905
child 34952 bd7e347eb768
equal deleted inserted replaced
33967:e191b400a8e0 33968:f94fb13ecbb3
    21 end;
    21 end;
    22 
    22 
    23 structure Primrec : PRIMREC =
    23 structure Primrec : PRIMREC =
    24 struct
    24 struct
    25 
    25 
    26 open DatatypeAux;
    26 open Datatype_Aux;
    27 
    27 
    28 exception PrimrecError of string * term option;
    28 exception PrimrecError of string * term option;
    29 
    29 
    30 fun primrec_error msg = raise PrimrecError (msg, NONE);
    30 fun primrec_error msg = raise PrimrecError (msg, NONE);
    31 fun primrec_error_eqn msg eqn = raise PrimrecError (msg, SOME eqn);
    31 fun primrec_error_eqn msg eqn = raise PrimrecError (msg, SOME eqn);