fact: Definition do_ (anno:LOOP_ANNOTATION.t) (body:STATEMENT.t) (_:While_) (test:Expression) := DoLoop (Block := BLOCK.t) anno body test.
imports: Coq(List) JML(ListHelpers) JML(JMLExpressionNotations) JML(JMLProgramPlusImpl)