Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
9778f3e8
Commit
9778f3e8
authored
Jul 06, 2010
by
Andrei Paskevich
Browse files
fix hypothesis_selection
parent
9345a9b6
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/transform/hypothesis_selection.ml
View file @
9778f3e8
...
...
@@ -267,8 +267,9 @@ module GraphConstant = struct
List
.
fold_left
(
analyse_clause
fTbl
tTbl
)
gc
clauses
(** processes a single task_head. *)
let
update
fmlaTable
fTbl
tTbl
gc
task_head
=
match
task_head
.
task_decl
with
|
Decl
{
d_node
=
Dprop
(
_
,_,
prop_decl
)}
->
let
update
fmlaTable
fTbl
tTbl
gc
task_head
=
match
task_head
.
task_decl
.
Theory
.
td_node
with
|
Theory
.
Decl
{
d_node
=
Dprop
(
_
,_,
prop_decl
)}
->
analyse_prop
fmlaTable
fTbl
tTbl
gc
prop_decl
|
_
->
gc
end
...
...
@@ -334,11 +335,11 @@ module GraphPredicate = struct
(** takes a constant graph and a task_head, and add any interesting
element to the graph it returns. *)
let
update
fmlaTable
symbTbl
gp
task_head
=
match
task_head
.
task_decl
with
|
Decl
{
d_node
=
Dprop
(
_
,_,
prop_decl
)
}
->
match
task_head
.
task_decl
.
Theory
.
td_node
with
|
Theory
.
Decl
{
d_node
=
Dprop
(
_
,_,
prop_decl
)
}
->
(* a proposition to analyse *)
analyse_prop
fmlaTable
symbTbl
gp
prop_decl
|
Decl
{
d_node
=
Dlogic
logic_decls
}
->
|
Theory
.
Decl
{
d_node
=
Dlogic
logic_decls
}
->
(* a symbol to add *)
List
.
fold_left
(
fun
gp
logic_decl
->
add_symbol
symbTbl
gp
(
fst
logic_decl
))
...
...
@@ -523,8 +524,8 @@ end
(** if this is the goal, return it as Some goal after checking there is no other
goal. Else, return the option *)
let
get_goal
task_head
option
=
match
task_head
.
task_decl
with
|
Decl
{
d_node
=
Dprop
(
Pgoal
,_,
goal_fmla
)}
->
match
task_head
.
task_decl
.
Theory
.
td_node
with
|
Theory
.
Decl
{
d_node
=
Dprop
(
Pgoal
,_,
goal_fmla
)}
->
assert
(
option
=
None
);
(* only one goal ! *)
Some
goal_fmla
|
_
->
option
...
...
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