fact: Example ex1 : forall r2 n g, 0<= n -> exec (("x", 0)::("y", 0)::("n", n)::nil) (parse_instr'' "while x < n do [le(x,n) /\ pp(y,x)] x:=x+1;y:=x+y done") r2 -> 2*(r2@g)"y" = (r2@g)"n"*((r2@g)"n"+1).
imports: little_w_string parser ZArith List String Lia