fact: Definition recursion {A} : A -> (N -> A -> A) -> N -> A := peano_rect (fun _ => A).
imports: BinNums BinPos RelationClasses Morphisms Setoid Equalities OrdersFacts GenericMinMax Bool NAxioms NMaxMin NProperties