fact: Fixpoint countIn (a: A) (l: list A) : nat := match l with | nil => 0 | x::xs => match eqA_dec a x with | left _ => S(countIn a xs) | right _ => countIn a xs end end.
imports: Coq(Permutation Setoid) CoLoR(NatUtil LogicUtil)