Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Tej Chajed
iris
Commits
5eb59e13
Commit
5eb59e13
authored
May 30, 2016
by
Robbert Krebbers
Browse files
Hint Resolve uPred.eq_refl'.
parent
39fe55fe
Changes
2
Hide whitespace changes
Inline
Side-by-side
proofmode/tactics.v
View file @
5eb59e13
...
...
@@ -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 *)
tests/proofmode.v
View file @
5eb59e13
...
...
@@ -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
)
:
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment