Notation for primitive view shifts that take a step.

program_logic/pviewshifts.v

@@ -34,6 +34,9 @@ Notation "P ={ E }=> Q" := (P ⊢ |={E}=> Q)
 Notation "|={ E1 , E2 }▷=> Q" := (|={E1%I,E2%I}=> ▷ |={E2,E1}=> Q)%I
   (at level 99, E1, E2 at level 50, Q at level 200,
    format "|={ E1 , E2 }▷=>  Q") : uPred_scope.
+Notation "|={ E }▷=> Q" := (|={E,E}▷=> Q)%I
+  (at level 99, E at level 50, Q at level 200,
+   format "|={ E }▷=>  Q") : uPred_scope.
 
 Section pvs.
 Context `{irisG Λ Σ}.