src/HOL/IMP/Com.thy
changeset 52046 bc01725d7918
parent 47818 151d137f1095
child 58305 57752a91eec4
--- a/src/HOL/IMP/Com.thy	Fri May 17 02:57:00 2013 +0200
+++ b/src/HOL/IMP/Com.thy	Fri May 17 08:19:52 2013 +0200
@@ -5,7 +5,7 @@
 datatype
   com = SKIP 
       | Assign vname aexp       ("_ ::= _" [1000, 61] 61)
-      | Seq    com  com         ("_;/ _"  [60, 61] 60)
+      | Seq    com  com         ("_;;/ _"  [60, 61] 60)
       | If     bexp com com     ("(IF _/ THEN _/ ELSE _)"  [0, 0, 61] 61)
       | While  bexp com         ("(WHILE _/ DO _)"  [0, 61] 61)