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

Lemma evalDet_lowDistApprox_ls_not_done: forall (A : Set) (c : Comp A) (s : Blist) (a2 : A) (n : nat), well_formed_comp c -> (forall s' (a : A), In s' (getAllBlists n) -> evalDet c (s ++ s') (ca_done a) -> False) -> lowDistApprox_ls c a2 n s 0.