Hint Extern 1 (RElim (respectful _ _) _ _ _ _) =>
eapply respectful_relim : typeclass_instances.
Global Instance forall_relation_subrel A P:
Monotonic (@forall_relation A P) ((forallr -, subrel) ++> subrel).
Global Instance forall_relation_params:
Params (@forall_relation) 3.

Lemma forall_relation_rintro {A B} (R: forall a:A, relation (B a)) f g:
RIntro (forall a, R a (f a) (g a)) (forall_relation R) f g.