Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
e971c632
Commit
e971c632
authored
Sep 18, 2014
by
Martin Clochard
Browse files
[induction_pr]: correctly handle failures
parent
c0e2d57d
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/transform/induction_pr.ml
View file @
e971c632
...
...
@@ -164,11 +164,12 @@ let induction_l label induct kn t =
zip
cindep
(
substitute_clause
induct
vsi
ls
argl
goal
c
))
cl
let
induction_l
label
induct
=
function
|
Some
{
task_decl
=
{
td_node
=
Decl
{
d_node
=
Dprop
(
Pgoal
,
pr
,
f
)
}
};
let
induction_l
label
induct
task
=
match
task
with
|
Some
{
task_decl
=
{
td_node
=
Decl
{
d_node
=
Dprop
(
Pgoal
,
pr
,
f
)
}
};
task_prev
=
prev
;
task_known
=
kn
}
->
List
.
map
(
add_prop_decl
prev
Pgoal
pr
)
(
induction_l
label
induct
kn
f
)
begin
try
List
.
map
(
add_prop_decl
prev
Pgoal
pr
)
(
induction_l
label
induct
kn
f
)
with
Ind_not_found
->
[
task
]
end
|
_
->
assert
false
...
...
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