Definition orRel (n : nat) (R S : naryRel n) : naryRel n.
intros.
induction n as [| n Hrecn].
apply (R || S).
simpl in |- *.
intros.
apply Hrecn.
apply (R H).
apply (S H).
Defined.

Lemma orRelPR :
forall (n : nat) (R R' : naryRel n),
isPRrel n R -> isPRrel n R' -> isPRrel n (orRel n R R').