equal
deleted
inserted
replaced
3 theory Com imports BExp begin |
3 theory Com imports BExp begin |
4 |
4 |
5 datatype |
5 datatype |
6 com = SKIP |
6 com = SKIP |
7 | Assign vname aexp ("_ ::= _" [1000, 61] 61) |
7 | Assign vname aexp ("_ ::= _" [1000, 61] 61) |
8 | Seq com com ("_;/ _" [60, 61] 60) |
8 | Seq com com ("_;;/ _" [60, 61] 60) |
9 | If bexp com com ("(IF _/ THEN _/ ELSE _)" [0, 0, 61] 61) |
9 | If bexp com com ("(IF _/ THEN _/ ELSE _)" [0, 0, 61] 61) |
10 | While bexp com ("(WHILE _/ DO _)" [0, 61] 61) |
10 | While bexp com ("(WHILE _/ DO _)" [0, 61] 61) |
11 |
11 |
12 end |
12 end |