Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Iris
stdpp
Commits
c699fda3
Commit
c699fda3
authored
May 11, 2013
by
Robbert Krebbers
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Improve "decompose_Forall_hyps" tactic.
parent
361308c7
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
1 deletion
+2
-1
theories/list.v
theories/list.v
+2
-1
No files found.
theories/list.v
View file @
c699fda3
...
...
@@ -2703,10 +2703,11 @@ Ltac simplify_zip_equality := repeat
Ltac
decompose_Forall_hyps
:
=
repeat
match
goal
with
|
H
:
Forall
_
[]
|-
_
=>
inversion
H
|
H
:
Forall
_
[]
|-
_
=>
clear
H
|
H
:
Forall
_
(
_
::
_
)
|-
_
=>
rewrite
Forall_cons
in
H
;
destruct
H
|
H
:
Forall
_
(
_
++
_
)
|-
_
=>
rewrite
Forall_app
in
H
;
destruct
H
|
H
:
Forall
_
(
_
<$>
_
)
|-
_
=>
rewrite
Forall_fmap
in
H
|
H
:
Forall
_
?l
,
H'
:
length
?l
≠
0
|-
_
=>
is_var
l
;
destruct
H
;
[
done
|]
|
H
:
Forall2
_
[]
[]
|-
_
=>
clear
H
|
H
:
Forall2
_
(
_
::
_
)
[]
|-
_
=>
destruct
(
Forall2_cons_nil_inv
_
_
_
H
)
|
H
:
Forall2
_
[]
(
_
::
_
)
|-
_
=>
destruct
(
Forall2_nil_cons_inv
_
_
_
H
)
...
...
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