Adding `%I` to printing of proof mode hypotheses.

We already do the same for the goal, this avoids some scope
delimiters being displayed.

tests/proofmode.ref

@@ -75,6 +75,19 @@ Tactic failure: iFrame: cannot frame Q.
   --------------------------------------∗
   □ P
   
+1 subgoal
+  
+  PROP : sbi
+  x : nat
+  l : list nat
+  P : PROP
+  ============================
+  "HP" : P
+  _ : [∗ list] y ∈ l, <affine> ⌜y = y⌝
+  _ : <affine> ⌜x = x⌝ ∗ ([∗ list] y ∈ l, <affine> ⌜y = y⌝)
+  --------------------------------------∗
+  P
+  
 1 subgoal
   
   PROP : sbi

tests/proofmode.v

@@ -485,6 +485,12 @@ Proof.
   iIntros "[??]". iSplit; last done. Show. done.
 Qed.
 
+Lemma test_big_sepL_simpl x (l : list nat) P :
+  P -∗
+  ([∗ list] k↦y ∈ l, <affine> ⌜ y = y ⌝) -∗
+  ([∗ list] y ∈ x :: l, <affine> ⌜ y = y ⌝) -∗
+  P.
+Proof. iIntros "HP ?? /=". Show. done. Qed.
 End tests.
 
 (** Test specifically if certain things print correctly. *)

tests/proofmode_iris.ref

@@ -7,7 +7,7 @@
   N : namespace
   P : iProp Σ
   ============================
-  "H" : inv N (<pers> P)%I
+  "H" : inv N (<pers> P)
   "H2" : ▷ <pers> P
   --------------------------------------□
   |={⊤ ∖ ↑N}=> ▷ <pers> P ∗ (|={⊤}=> ▷ P)
@@ -21,7 +21,7 @@
   N : namespace
   P : iProp Σ
   ============================
-  "H" : inv N (<pers> P)%I
+  "H" : inv N (<pers> P)
   "H2" : ▷ <pers> P
   --------------------------------------□
   "Hclose" : ▷ <pers> P ={⊤ ∖ ↑N,⊤}=∗ emp
@@ -39,7 +39,7 @@
   N : namespace
   P : iProp Σ
   ============================
-  _ : cinv N γ (<pers> P)%I
+  _ : cinv N γ (<pers> P)
   "HP" : ▷ <pers> P
   --------------------------------------□
   "Hown" : cinv_own γ p
@@ -57,7 +57,7 @@
   N : namespace
   P : iProp Σ
   ============================
-  _ : cinv N γ (<pers> P)%I
+  _ : cinv N γ (<pers> P)
   "HP" : ▷ <pers> P
   --------------------------------------□
   "Hown" : cinv_own γ p
@@ -77,7 +77,7 @@
   P : iProp Σ
   H2 : ↑N ⊆ E2
   ============================
-  _ : na_inv t N (<pers> P)%I
+  _ : na_inv t N (<pers> P)
   "HP" : ▷ <pers> P
   --------------------------------------□
   "Hown1" : na_own t E1
@@ -98,7 +98,7 @@
   P : iProp Σ
   H2 : ↑N ⊆ E2
   ============================
-  _ : na_inv t N (<pers> P)%I
+  _ : na_inv t N (<pers> P)
   "HP" : ▷ <pers> P
   --------------------------------------□
   "Hown1" : na_own t E1

theories/proofmode/notation.v

@@ -8,10 +8,10 @@ Arguments Enil {_}.
 Arguments Esnoc {_} _%proof_scope _%string _%I.
 
 Notation "" := Enil (only printing) : proof_scope.
-Notation "Γ H : P" := (Esnoc Γ (INamed H) P)
+Notation "Γ H : P" := (Esnoc Γ (INamed H) P%I)
   (at level 1, P at level 200,
    left associativity, format "Γ H  :  '[' P ']' '//'", only printing) : proof_scope.
-Notation "Γ '_' : P" := (Esnoc Γ (IAnon _) P)
+Notation "Γ '_' : P" := (Esnoc Γ (IAnon _) P%I)
   (at level 1, P at level 200,
    left associativity, format "Γ '_'  :  '[' P ']' '//'", only printing) : proof_scope.