(* Returns smallest value of x below b such that (P b x).  Otherwise returns b*)
Definition boundedSearch (P : naryRel 2) (b : nat) : nat :=
boundedSearchHelp (P b) b.

Lemma boundSearchIsPR :
forall P : naryRel 2,
isPRrel 2 P -> isPR 1 (fun b : nat => boundedSearch P b).