(*s [(CGconsistent_anchored cg a d)] if there exists a valuation $\rho$ which 
     satisfies [cg] and such that $\rho(a)=d$
*)

Definition CGconsistent_anchored (cg : CGraph1) (a : ad) 
  (d0 : D) := {rho : ad -> D | CGsat cg rho /\ rho a = d0}.

Lemma CGconsistent_then_anchored : forall cg : CGraph1, CGconsistent cg -> forall (a : ad) (d0 : D), CGconsistent_anchored cg a d0.