equal
deleted
inserted
replaced
1 header "IMP --- A Simple Imperative Language" |
1 header "IMP --- A Simple Imperative Language" |
2 |
2 |
3 theory Com imports BExp begin |
3 theory Com imports BExp begin |
4 |
4 |
5 datatype_new |
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) |