add a test for framing monPred_at below a wand

tests/proofmode_monpred.ref

@@ -35,3 +35,14 @@
   --------------------------------------∗
   ∀ i : I, 𝓟 ∗ 𝓠 ∗ Q i
   
+1 subgoal
+  
+  I : biIndex
+  PROP : sbi
+  FU0 : BiFUpd PROP * ()
+  P, Q : monpred.monPred I PROP
+  i : I
+  ============================
+  --------------------------------------∗
+  (Q -∗ emp) i
+  

tests/proofmode_monpred.v

@@ -120,7 +120,12 @@ Section tests.
     iIntros "[$ #HP]". iFrame "HP".
   Qed.
 
+  Lemma test_iFrame_monPred_at_wand (P Q : monPred) i :
+    P i -∗ (Q -∗ P) i.
+  Proof. iIntros "$". Show. Abort.
+
   Lemma test_iNext_Bi P :
     @bi_entails monPredI (▷ P) (▷ P).
   Proof. iIntros "H". by iNext. Qed.
+
 End tests.