(*s A formula is proved when its negation cannot be satisfied *)
Definition CG_prove (f : CGForm) := negb (CG_solve (CGnot f)).

Theorem CG_prove_complete_anchored :
forall (f : CGForm) (anchor : ad) (anchor_value : D),
(forall rho : ad -> D, rho anchor = anchor_value -> CGeval rho f) ->
CG_prove f = true.