author | blanchet |
Tue, 20 Aug 2013 11:42:50 +0200 | |
changeset 53093 | 503a26723c4f |
parent 53092 | 7e89edba3db6 |
child 53094 | e33d77814a92 |
--- a/src/HOL/Tools/Nitpick/kodkod.ML Tue Aug 20 04:59:54 2013 +0200 +++ b/src/HOL/Tools/Nitpick/kodkod.ML Tue Aug 20 11:42:50 2013 +0200 @@ -881,7 +881,7 @@ val scan_nat = Scan.repeat1 (Scan.one Symbol.is_ascii_digit) - >> (the o Int.fromString o space_implode "") + >> (the o Int.fromString o implode) val scan_rel_name = ($$ "s" |-- scan_nat >> pair 1 || $$ "r" |-- scan_nat >> pair 2