intuition.
eapply H1.
eapply filter_In; eauto.
assert (P a = true -> False).
intuition.
congruence.
eapply H.
eapply filter_In; eauto.
case_eq (P a); intuition.
left.
intuition.
eapply H.
eapply filter_In; eauto.
Qed.

(* Specifications: *)
Theorem getSupport_In_evalDist : forall (A : Set)(c : Comp A)(a : A),
In a (getSupport c) <-> ~(evalDist c a == 0).