diff --git a/proofmode/coq_tactics.v b/proofmode/coq_tactics.v
index 3e3d103fe2bee3905a6d0cd15a5969abee05b876..2b9436e8976a61e95b8691bed105476b353e37f1 100644
--- a/proofmode/coq_tactics.v
+++ b/proofmode/coq_tactics.v
@@ -939,6 +939,9 @@ Proof. done. Qed.
 Global Instance exist_destruct_later {A} P (Φ : A → uPred M) :
   ExistDestruct P Φ → Inhabited A → ExistDestruct (▷ P) (λ a, ▷ (Φ a))%I.
 Proof. rewrite /ExistDestruct=> HP ?. by rewrite HP later_exist. Qed.
+Global Instance exist_destruct_always {A} P (Φ : A → uPred M) :
+  ExistDestruct P Φ → ExistDestruct (□ P) (λ a, □ (Φ a))%I.
+Proof. rewrite /ExistDestruct=> HP. by rewrite HP always_exist. Qed.
 
 Lemma tac_exist_destruct {A} Δ i p j P (Φ : A → uPred M) Q :
   envs_lookup i Δ = Some (p, P) → ExistDestruct P Φ →