intuition.
destruct (in_dec eqdb b (getSupport c1)); intuition.
destruct (in_dec eqda a (getSupport (c2 b))); intuition.
exfalso.
eapply H.
eapply In_getSupport_bind_cp; eauto.
Qed.
Instance length_getSupport_nz : forall (A : Set)(c : Comp A),
well_formed_comp c ->
nz (length (getSupport c)).
intuition.
econstructor.
eapply getSupport_length_nz.
trivial.
Qed.

(* Specifications: *)
Lemma evalDet_lowDistApprox_ls_done:
forall (A : Set) (eqd : eq_dec A) (c : Comp A) (s : Blist)
(a1 a2 : A) (n : nat),
evalDet c s (ca_done a1) ->
lowDistApprox_ls c a2 n s (if eqd a2 a1 then 1 else 0).