Commit 5eb59e13 by Robbert Krebbers

### 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!