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

Theorem le_impl_comp_spec : forall (A B : Set){eqda : EqDec A}{eqdb : EqDec B}(c1 : Comp A)(c2 : Comp B), well_formed_comp c1 -> well_formed_comp c2 -> forall x y, evalDist c1 x <= evalDist c2 y -> comp_spec (fun a b => a = x -> b = y) c1 c2.