Skip to content
Snippets Groups Projects
Commit 5eb59e13 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Hint Resolve uPred.eq_refl'.

parent 39fe55fe
No related branches found
No related tags found
No related merge requests found
......@@ -768,3 +768,4 @@ Tactic Notation "iRewrite" "-" open_constr(t) "in" constr(H) :=
(* Make sure that by and done solve trivial things in proof mode *)
Hint Extern 0 (of_envs _ _) => by iPureIntro.
Hint Extern 0 (of_envs _ _) => iAssumption.
Hint Resolve uPred.eq_refl'. (* Maybe make an [iReflexivity] tactic *)
......@@ -67,9 +67,9 @@ Lemma demo_5 (M : ucmraT) (x y : M) (P : uPred M) :
( z, P z y) (P -★ (x,x) (y,x)).
Proof.
iIntros "H1 H2".
iRewrite (uPred.eq_sym x x with "[#]"). iApply uPred.eq_refl.
iRewrite (uPred.eq_sym x x with "[#]"); first done.
iRewrite -("H1" $! _ with "[#]"); first done.
iApply uPred.eq_refl.
done.
Qed.
Lemma demo_6 (M : ucmraT) (P Q : uPred M) :
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment