fact: Fixpoint smallest_aux acc k := match k with | 0 => if P_dec k then 0 else acc | S k' => smallest_aux (if P_dec k then k else acc) k' end.
imports: Coq(Morphisms Euclid Peano Lia) Coq(Compare) CoLoR(LogicUtil EqUtil BoolUtil NatCompat RelUtil)