diff --git a/theories/proofmode/class_instances.v b/theories/proofmode/class_instances.v index d31192a563be1004b54accb126e5e82d0b1d8f2f..beb33f1e1ec34c2b796db7ac13e27dc035ea7eee 100644 --- a/theories/proofmode/class_instances.v +++ b/theories/proofmode/class_instances.v @@ -720,6 +720,9 @@ Proof. done. Qed. Global Instance into_forall_always {A} P (Φ : A → uPred M) : IntoForall P Φ → IntoForall (□ P) (λ a, □ (Φ a))%I. Proof. rewrite /IntoForall=> HP. by rewrite HP always_forall. Qed. +Global Instance into_forall_later {A} P (Φ : A → uPred M) : + IntoForall P Φ → IntoForall (▷ P) (λ a, ▷ (Φ a))%I. +Proof. rewrite /IntoForall=> HP. by rewrite HP later_forall. Qed. (* FromForall *) Global Instance from_forall_forall {A} (Φ : A → uPred M) :