fact: Fixpoint findP A (cond : A -> Prop) (l : list A) := match l with | nil => 0 | h :: t => if excluded_middle_informative (cond h) then 0 else S (findP cond t) end.
imports: Arith micromega.Lia Setoid IndefiniteDescription ClassicalChoice HahnBase HahnList HahnEquational HahnRewrite HahnRelationsBasic HahnSets HahnNatExtra HahnListBefore HahnWf HahnSorted HahnTotalExt