Ltac despec := 
  match goal with
    | [H : comp_spec _ _ _  |- _] => destruct H
  end.

Theorem comp_spec_irr_r : forall (A B C : Set){eqda : EqDec A}{eqdb : EqDec B}{eqdc : EqDec C}(c1 : Comp A)(c2 : Comp B)(f2 : B -> Comp C) P, well_formed_comp c2 -> (forall b, In b (getSupport c2) -> comp_spec P c1 (f2 b)) -> comp_spec P c1 (Bind c2 f2).