src/HOL/IMP/Com.thy

more IMP fragments

header "IMP --- A Simple Imperative Language"

theory Com imports BExp begin

text_raw{*\begin{isaverbatimwrite}\newcommand{\Comdef}{% *}
datatype
  com = SKIP 
      | Assign vname aexp       ("_ ::= _" [1000, 61] 61)
      | Semi   com  com         ("_;/ _"  [60, 61] 60)
      | If     bexp com com     ("(IF _/ THEN _/ ELSE _)"  [0, 0, 61] 61)
      | While  bexp com         ("(WHILE _/ DO _)"  [0, 61] 61)
text_raw{*}\end{isaverbatimwrite}*}

end