Instance length_getSupport_nz : forall (A : Set)(c : Comp A),
  well_formed_comp c ->
  nz (length (getSupport c)).

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).