eapply pair_EqDec; intuition.
eapply IHX; intuition.
apply oc_base_exists in X1;
intuition.
eapply comp_EqDec; intuition.
eapply H.
eapply oc_base_exists;
eauto.
intuition.
intuition.
Qed.

(* Specifications: *)
Lemma well_formed_val_exists :
forall (A : Set)(c : Comp A),
well_formed_comp c ->
exists x, In x (getSupport c).