intuition.
eapply comp_spec_seq; trivial.
eauto.
intuition; subst; intuition.
Qed.

Theorem comp_spec_eq_swap :
forall (A B C : Set){eqdc : EqDec C}(c1 : Comp A)(c2 : Comp B)(f : A -> B -> Comp C),
comp_spec eq (x <-$ c1; y <-$ c2; f x y) (y <-$ c2; x <-$ c1; f x y).