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
Hide whitespace changes
Inline Side-by-side
proofmode/tactics.v
+ 1
− 0
View file @ 5eb59e13
...@@ -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 *)
tests/proofmode.v
+ 2
− 2
View file @ 5eb59e13
...@@ -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) :
......
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