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
a1da51d7
Commit
a1da51d7
authored
Oct 20, 2012
by
Andrei Paskevich
Browse files
put stop_split at the proper place
parent
47b21ce4
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/whyml/mlw_typing.ml
View file @
a1da51d7
...
...
@@ -1301,11 +1301,10 @@ let add_type_invariant loc uc id params inv =
Typing
.
add_var
x
(
dty_of_ty
pv
.
pv_vs
.
vs_ty
)
denv
)
mpv
denv
in
let
mk_inv
f
=
let
f
=
Typing
.
type_fmla
(
get_theory
uc
)
denv
vars
f
in
let
f
=
t_label_add
Split_goal
.
stop_split
f
in
match
f
.
t_node
with
let
f
=
match
f
.
t_node
with
|
Ttrue
|
Tfalse
->
f
|
_
->
t_case
(
t_var
res
)
[
t_close_branch
pat
f
]
in
|
_
->
t_case
(
t_var
res
)
[
t_close_branch
pat
f
]
in
t_label_add
Split_goal
.
stop_split
f
in
List
.
map
mk_inv
inv
in
let
q
=
Mlw_ty
.
create_post
res
(
t_and_simp_l
inv
)
in
let
q
=
if
List
.
for_all2
tv_equal
its
.
its_args
tvl
then
q
else
...
...
@@ -1790,7 +1789,6 @@ let add_pdecl ~wp loc uc d =
Loc
.
try3
loc
(
add_pdecl
~
wp
)
loc
uc
d
let
use_clone_pure
lib
mth
uc
loc
(
use
,
inst
)
=
if
Debug
.
test_flag
Typing
.
debug_parse_only
then
uc
else
let
path
,
s
=
Typing
.
split_qualid
use
.
use_theory
in
let
th
=
find_theory
loc
lib
mth
path
s
in
(* open namespace, if any *)
...
...
@@ -1810,7 +1808,6 @@ let use_clone_pure lib mth uc loc use =
Loc
.
try3
loc
(
use_clone_pure
lib
mth
)
uc
loc
use
let
use_clone
lib
mmd
mth
uc
loc
(
use
,
inst
)
=
if
Debug
.
test_flag
Typing
.
debug_parse_only
then
uc
else
let
path
,
s
=
Typing
.
split_qualid
use
.
use_theory
in
let
mth
=
find_module
loc
lib
mmd
mth
path
s
in
(* open namespace, if any *)
...
...
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