equal
deleted
inserted
replaced
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); |