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
Dmitry Khalanskiy
Iris
Commits
032879e0
Commit
032879e0
authored
Nov 27, 2016
by
Robbert Krebbers
Browse files
Fix some typos in comments.
parent
b62bb39a
Changes
1
Hide whitespace changes
Inline
Side-by-side
proofmode/tactics.v
View file @
032879e0
...
...
@@ -691,8 +691,8 @@ Local Tactic Notation "iIntro" "(" simple_intropattern(x) ")" :=
|
(* (?P -∗ _) *)
eapply
tac_wand_intro_pure
;
[
let
P
:
=
match
goal
with
|-
IntoPure
?P
_
=>
P
end
in
apply
_
||
fail
"iIntro:"
P
"not pure"
|]
|
(*
(■
∀ _, _
)
*)
apply
tac_pure_forall_intro
|
(*
(■ (
_ → _
))
*)
apply
tac_pure_impl_intro
]
;
|
(*
⌜
∀ _, _
⌝
*)
apply
tac_pure_forall_intro
|
(*
⌜
_ → _
⌝
*)
apply
tac_pure_impl_intro
]
;
intros
x
.
Local
Tactic
Notation
"iIntro"
constr
(
H
)
:
=
first
...
...
@@ -1163,7 +1163,7 @@ Tactic Notation "iRewrite" "-" open_constr(lem) "in" constr(H) :=
iRewriteCore
true
lem
in
H
.
Ltac
iSimplifyEq
:
=
repeat
(
iMatchGoal
ltac
:
(
fun
H
P
=>
match
P
with
(
⌜
_
=
_
⌝
)
%
I
=>
iDestruct
H
as
%?
end
)
iMatchGoal
ltac
:
(
fun
H
P
=>
match
P
with
⌜
_
=
_
⌝
%
I
=>
iDestruct
H
as
%?
end
)
||
simplify_eq
/=).
(** * Update modality *)
...
...
Write
Preview
Supports
Markdown
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