create a hint database for solving some simple uPred's

algebra/upred.v

@@ -980,4 +980,14 @@ Proof. by rewrite -(always_always Q); apply always_entails_l'. Qed.
 Lemma always_entails_r P Q `{!AlwaysStable Q} : (P ⊑ Q) → P ⊑ (P ★ Q).
 Proof. by rewrite -(always_always Q); apply always_entails_r'. Qed.
 
-End uPred_logic. End uPred.
+End uPred_logic.
+
+(* uPred Hint DB *)
+Create HintDb uPred.
+Hint Resolve or_elim or_intro_l' or_intro_r' : uPred.
+Hint Resolve and_intro and_elim_l' and_elim_r' : uPred.
+Hint Resolve always_mono : uPred.
+Hint Resolve sep_elim_l' sep_elim_r' sep_mono : uPred.
+Hint Immediate True_intro False_elim : uPred.
+
+End uPred.

program_logic/viewshifts.v

@@ -92,7 +92,7 @@ Lemma vs_open_close N E P Q R :
 Proof.
   intros; apply (always_intro _ _), impl_intro_l.
   rewrite always_and_sep_r assoc [(P ★ _)%I]comm -assoc.
-  eapply pvs_open_close; [by eauto using sep_elim_l'..|].
+  eapply pvs_open_close; [by eauto with uPred..|].
   rewrite sep_elim_r. apply wand_intro_l.
   (* Oh wow, this is annyoing... *)
   rewrite assoc -always_and_sep_r'.