ProgTutorial/Solutions.thy
changeset 426 d94755882e36
parent 424 5e0a2b50707e
child 440 a0b280dd4bc7
--- a/ProgTutorial/Solutions.thy	Mon May 24 20:02:11 2010 +0100
+++ b/ProgTutorial/Solutions.thy	Thu May 27 10:39:07 2010 +0200
@@ -90,13 +90,13 @@
  | Add of expr * expr
 
 fun parse_basic xs =
-  (OuterParse.nat >> Number 
-   || OuterParse.$$$ "(" |-- parse_expr --| OuterParse.$$$ ")") xs
+  (Parse.nat >> Number 
+   || Parse.$$$ "(" |-- parse_expr --| Parse.$$$ ")") xs
 and parse_factor xs =
-  (parse_basic --| OuterParse.$$$ "*" -- parse_factor >> Mult 
+  (parse_basic --| Parse.$$$ "*" -- parse_factor >> Mult 
    || parse_basic) xs
 and parse_expr xs =
-  (parse_factor --| OuterParse.$$$ "+" -- parse_expr >> Add 
+  (parse_factor --| Parse.$$$ "+" -- parse_expr >> Add 
    || parse_factor) xs*}