fact: Definition slow_add := WHILE (LESSEQUAL (CONST 1) (VAR "x")) (ASSIGN "x" (MINUS (VAR "x") (CONST 1)) ;; ASSIGN "y" (PLUS (VAR "y") (CONST 1))).
imports: Coq(ZArith Psatz Bool String List Wellfounded Program.Equality) Coq(FunctionalExtensionality) CDF(IMP Sequences)