fact: Definition while (anno:LOOP_ANNOTATION.t) (test:Expression) (body:STATEMENT.t) := WhileLoop (Block := BLOCK.t) anno test body.
imports: Coq(List) JML(ListHelpers) JML(JMLExpressionNotations) JML(JMLProgramPlusImpl)