changeset 5184 | 9b8547a9496a |
parent 4910 | 697d17fe1665 |
child 10338 | 291ce4c4b50e |
--- a/src/HOL/Lex/MaxPrefix.thy Fri Jul 24 13:03:20 1998 +0200 +++ b/src/HOL/Lex/MaxPrefix.thy Fri Jul 24 13:19:38 1998 +0200 @@ -19,7 +19,7 @@ consts maxsplit :: "('a list => bool) => 'a list * 'a list => 'a list => 'a splitter" -primrec maxsplit list +primrec "maxsplit P res ps [] = (if P ps then (ps,[]) else res)" "maxsplit P res ps (q#qs) = maxsplit P (if P ps then (ps,q#qs) else res) (ps@[q]) qs"