equal
deleted
inserted
replaced
324 (*************************************************************************) |
324 (*************************************************************************) |
325 (************************* Main fixrec function **************************) |
325 (************************* Main fixrec function **************************) |
326 (*************************************************************************) |
326 (*************************************************************************) |
327 |
327 |
328 local |
328 local |
329 (* code adapted from HOL/Tools/primrec.ML *) |
329 (* code adapted from HOL/Tools/Datatype/primrec.ML *) |
330 |
330 |
331 fun gen_fixrec |
331 fun gen_fixrec |
332 prep_spec |
332 prep_spec |
333 (raw_fixes : (binding * 'a option * mixfix) list) |
333 (raw_fixes : (binding * 'a option * mixfix) list) |
334 (raw_spec' : (bool * (Attrib.binding * 'b)) list) |
334 (raw_spec' : (bool * (Attrib.binding * 'b)) list) |