Commit 960ac942 authored by Ralf Jung's avatar Ralf Jung

rename the logic's hint DB

parent 8bc4cec0
......@@ -982,12 +982,12 @@ Proof. by rewrite -(always_always Q); apply always_entails_r'. Qed.
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.
(* Hint DB for the logic *)
Create HintDb I.
Hint Resolve or_elim or_intro_l' or_intro_r' : I.
Hint Resolve and_intro and_elim_l' and_elim_r' : I.
Hint Resolve always_mono : I.
Hint Resolve sep_elim_l' sep_elim_r' sep_mono : I.
Hint Immediate True_intro False_elim : I.
End uPred.
......@@ -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 with uPred..|].
eapply pvs_open_close; [by eauto with I..|].
rewrite sep_elim_r. apply wand_intro_l.
(* Oh wow, this is annyoing... *)
rewrite assoc -always_and_sep_r'.
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment