fact: Example eg2 : parse " skip; z:=x*y*(x*x); while x=x do if (z <= z*z) && ~(x = 2) then x := z; y := z else skip end; skip end; x:=z " = SomeE <{ skip; "z" := "x" * "y" * ("x" * "x"); while ("x" = "x") do if ("z" <= "z" * "z") && ~("x" = 2) then "x" := "z"; "y" := "z" else skip end; skip end; "x" := "z" }>.
imports: Coq(Strings.String) Coq(Strings.Ascii) Coq(Arith.Arith) Coq(Init.Nat) Coq(Arith.EqNat) Coq(Lists.List) LF(Maps Imp)