Hint Extern 1 (RElim (forall_relation _) _ _ _ _) =>
eapply forall_relation_relim : typeclass_instances.
Global Instance pointwise_relation_subrel A B:
Monotonic (@pointwise_relation A B) (subrel ++> subrel).
Global Instance pointwise_relation_params:
Params (@pointwise_relation) 3.

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