Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Jonas Kastberg
iris
Commits
e2abd6c4
Commit
e2abd6c4
authored
Jan 11, 2017
by
Robbert Krebbers
Browse files
Remove some FIXMEs: Coq bug 4762 has been fixed in 8.6.
parent
6f23defb
Changes
2
Hide whitespace changes
Inline
Side-by-side
theories/base_logic/lib/fancy_updates.v
View file @
e2abd6c4
...
...
@@ -195,8 +195,7 @@ Section proofmode_classes.
Proof
.
by
rewrite
/
ElimModal
fupd_frame_r
wand_elim_r
fupd_trans
.
Qed
.
End
proofmode_classes
.
Hint
Extern
2
(
coq_tactics
.
of_envs
_
⊢
_
)
=>
match
goal
with
|-
_
⊢
|={
_
}=>
_
=>
iModIntro
end
.
Hint
Extern
2
(
coq_tactics
.
of_envs
_
⊢
|={
_
}=>
_
)
=>
iModIntro
.
(** Fancy updates that take a step. *)
...
...
theories/proofmode/tactics.v
View file @
e2abd6c4
...
...
@@ -1270,19 +1270,12 @@ Hint Extern 0 (of_envs _ ⊢ _) => iAssumption.
Hint
Extern
0
(
of_envs
_
⊢
_
)
=>
progress
iIntros
.
Hint
Resolve
uPred
.
internal_eq_refl'
.
(* Maybe make an [iReflexivity] tactic *)
(* We should be able to write [Hint Extern 1 (of_envs _ ⊢ (_ ∗ _)%I) => ...],
but then [eauto] mysteriously fails. See bug 4762 *)
Hint
Extern
1
(
of_envs
_
⊢
_
)
=>
match
goal
with
|
|-
_
⊢
_
∧
_
=>
iSplit
|
|-
_
⊢
_
∗
_
=>
iSplit
|
|-
_
⊢
▷
_
=>
iNext
|
|-
_
⊢
□
_
=>
iClear
"*"
;
iAlways
|
|-
_
⊢
∃
_
,
_
=>
iExists
_
|
|-
_
⊢
|==>
_
=>
iModIntro
|
|-
_
⊢
◇
_
=>
iModIntro
end
.
Hint
Extern
1
(
of_envs
_
⊢
_
)
=>
match
goal
with
|-
_
⊢
(
_
∨
_
)%
I
=>
iLeft
end
.
Hint
Extern
1
(
of_envs
_
⊢
_
)
=>
match
goal
with
|-
_
⊢
(
_
∨
_
)%
I
=>
iRight
end
.
Hint
Extern
1
(
of_envs
_
⊢
_
∧
_
)
=>
iSplit
.
Hint
Extern
1
(
of_envs
_
⊢
_
∗
_
)
=>
iSplit
.
Hint
Extern
1
(
of_envs
_
⊢
▷
_
)
=>
iNext
.
Hint
Extern
1
(
of_envs
_
⊢
□
_
)
=>
iClear
"*"
;
iAlways
.
Hint
Extern
1
(
of_envs
_
⊢
∃
_
,
_
)
=>
iExists
_
.
Hint
Extern
1
(
of_envs
_
⊢
|==>
_
)
=>
iModIntro
.
Hint
Extern
1
(
of_envs
_
⊢
◇
_
)
=>
iModIntro
.
Hint
Extern
1
(
of_envs
_
⊢
_
∨
_
)
=>
iLeft
.
Hint
Extern
1
(
of_envs
_
⊢
_
∨
_
)
=>
iRight
.
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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