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

Theorem comp_spec_eq_trans_l : forall (A B : Set){eqd : EqDec A}{eqd : EqDec B}(c1 c2 : Comp A)(c3 : Comp B) P, comp_spec eq c1 c2 -> comp_spec P c2 c3 -> comp_spec P c1 c3.