Definition CGSeq (x y : ad) (d : D) :=
CGSand (CGSleq x y d) (CGSleq y x (Dneg d)).

(* Specifications: *)
Lemma CGSeq_correct :
forall (x y : ad) (d : D) (rho : ad -> D),
CGSeval rho (CGSeq x y d) -> rho x = Dplus (rho y) d.
Lemma CGSeq_complete :
forall (x y : ad) (d : D) (rho : ad -> D),
rho x = Dplus (rho y) d -> CGSeval rho (CGSeq x y d).