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
021a8131
Commit
021a8131
authored
Apr 08, 2010
by
Francois Bobot
Browse files
Correction de split-conjunction lorsqu'il traite les axiomes
parent
74aaab03
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/transform/split_conjunction.ml
View file @
021a8131
...
...
@@ -103,8 +103,13 @@ let elt is_split_kind split_pos d =
match
d
.
d_node
with
|
Dprop
(
k
,
pr
,
f
)
when
is_split_kind
k
->
let
l
=
split_pos
[]
f
in
List
.
map
(
fun
p
->
[
create_prop_decl
k
(
create_prsymbol
(
id_clone
pr
.
pr_name
))
p
])
l
let
l
=
List
.
map
(
fun
p
->
create_prop_decl
k
(
create_prsymbol
(
id_clone
pr
.
pr_name
))
p
)
l
in
begin
match
k
with
|
Pgoal
->
List
.
map
(
fun
p
->
[
p
])
l
|
Paxiom
->
[
l
]
|
_
->
assert
false
end
|
_
->
[[
d
]]
let
is_split_goal
=
function
Pgoal
->
true
|
_
->
false
...
...
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