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
Dan Frumin
iris-coq
Commits
8ca3fc9b
Commit
8ca3fc9b
authored
Jun 16, 2016
by
Robbert Krebbers
Browse files
Make iSplit work on goals of the shape ⊣⊢.
parent
bbec6617
Changes
1
Hide whitespace changes
Inline
Side-by-side
proofmode/tactics.v
View file @
8ca3fc9b
...
...
@@ -333,9 +333,13 @@ Local Tactic Notation "iOrDestruct" constr(H) "as" constr(H1) constr(H2) :=
(
**
*
Conjunction
and
separating
conjunction
*
)
Tactic
Notation
"iSplit"
:=
eapply
tac_and_split
;
[
let
P
:=
match
goal
with
|-
AndSplit
?
P
_
_
=>
P
end
in
apply
_
||
fail
"iSplit:"
P
"not a conjunction"
|
|
].
lazymatch
goal
with
|
|-
_
⊢
_
=>
eapply
tac_and_split
;
[
let
P
:=
match
goal
with
|-
AndSplit
?
P
_
_
=>
P
end
in
apply
_
||
fail
"iSplit:"
P
"not a conjunction"
|
|
]
|
|-
_
⊣⊢
_
=>
apply
(
anti_symm
(
⊢
))
end
.
Tactic
Notation
"iSplitL"
constr
(
Hs
)
:=
let
Hs
:=
words
Hs
in
...
...
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