fact: Definition prog1 := ASSIGN "x" (CONST 0) ;; ASSIGN "y" (CONST 100) ;; ASSIGN "z" (PLUS (VAR "x") (VAR "y")) ;; WHILE (LESSEQUAL (VAR "x") (CONST 10)) (ASSIGN "x" (PLUS (VAR "x") (CONST 1)) ;; ASSIGN "y" (MINUS (VAR "y") (CONST 1))).
imports: Coq(ZArith Psatz Bool String List FMaps) Coq(FunctionalExtensionality) CDF(Sequences IMP)