Hint Extern 0 (RIntro _ (forall_rel _) _ _) =>
eapply forall_rintro : typeclass_instances.

(* Specifications: *)
Lemma forall_relim {V1 V2 E FV1 FV2} R f g v1 v2 e P Q:
RElim (R v1 v2 e) (f v1) (g v2) P Q ->
RElim (@forall_rel V1 V2 E FV1 FV2 R) f g P Q.