End ZCGevalDef.
Definition ZCG_solve (f : ZCGForm) :=
CG_solve Z 0%Z Zplus Zopp Zle_bool 1%Z (ZCGtranslate f).

Theorem ZCG_solve_correct :
forall f : ZCGForm,
ZCG_solve f = true -> {rho : ad -> Z | ZCGeval rho f /\ rho N0 = 0%Z}.