diff --git a/theories/proofmode/class_instances.v b/theories/proofmode/class_instances.v index d6abc608cb2d044e564138d30016e6ddbf279343..bc070209cf66451ff1d03f26765d14c45cb22c69 100644 --- a/theories/proofmode/class_instances.v +++ b/theories/proofmode/class_instances.v @@ -842,7 +842,7 @@ Proof. rewrite /ElimModal=> H. apply wand_intro_r. by rewrite wand_curry -assoc (comm _ P') -wand_curry wand_elim_l. Qed. -Global Instance forall_modal_wand {A} P P' (Φ Ψ : A → uPred M) : +Global Instance elim_modal_forall {A} P P' (Φ Ψ : A → uPred M) : (∀ x, ElimModal P P' (Φ x) (Ψ x)) → ElimModal P P' (∀ x, Φ x) (∀ x, Ψ x). Proof. rewrite /ElimModal=> H. apply forall_intro=> a. by rewrite (forall_elim a).