intuition.
simpl.
eapply sumList_body_eq; intuition.
Qed.

(* Specifications: *)
Theorem evalDist_1 :
forall (A : Set)(eqd : EqDec A)(c : Comp A) a,
well_formed_comp c ->
evalDist c a == 1 ->
(getSupport c) = (a :: nil)%list.