(*s Formula are solved by looking at their simplified form *)
Definition CG_solve (f : CGForm) := CGS_solve false (CGFormSimplify f).

Theorem CG_solve_correct_anchored :
forall (anchor : ad) (anchor_value : D) (f : CGForm),
CG_solve f = true ->
{rho : ad -> D | CGeval rho f /\ rho anchor = anchor_value}.