induction c; intuition; simpl in *.
inversion H; clear H; subst.
intuition.
destruct (evalDet_step c s); try discriminate.
eapply in_getAllBvectors.
discriminate.
Qed.

(* Specifications: *)
Lemma getSupport_In_evalDet_step_more : forall (A : Set)(c c' : Comp A) s s' a,
evalDet_step c s = cs_more c' s' ->
In a (getSupport c') ->
In a (getSupport c).