Commit 5eb59e13 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Hint Resolve uPred.eq_refl'.

parent 39fe55fe
...@@ -768,3 +768,4 @@ Tactic Notation "iRewrite" "-" open_constr(t) "in" constr(H) := ...@@ -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 *) (* Make sure that by and done solve trivial things in proof mode *)
Hint Extern 0 (of_envs _ _) => by iPureIntro. Hint Extern 0 (of_envs _ _) => by iPureIntro.
Hint Extern 0 (of_envs _ _) => iAssumption. 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) : ...@@ -67,9 +67,9 @@ Lemma demo_5 (M : ucmraT) (x y : M) (P : uPred M) :
( z, P z y) (P - (x,x) (y,x)). ( z, P z y) (P - (x,x) (y,x)).
Proof. Proof.
iIntros "H1 H2". 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. iRewrite -("H1" $! _ with "[#]"); first done.
iApply uPred.eq_refl. done.
Qed. Qed.
Lemma demo_6 (M : ucmraT) (P Q : uPred M) : Lemma demo_6 (M : ucmraT) (P Q : uPred M) :
......
Supports Markdown
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