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
fb4dec43
Commit
fb4dec43
authored
Feb 03, 2013
by
Andrei Paskevich
Browse files
whyml: minor
parent
0e35697f
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/whyml/mlw_typing.ml
View file @
fb4dec43
...
...
@@ -917,10 +917,6 @@ let post_invariant lenv rvs inv ity q =
let
q
=
t_and_asym_simp
(
t_and_simp
res_inv
inv
)
q
in
Mlw_ty
.
create_post
vs
q
let
ity_or_unit
=
function
|
VTvalue
v
->
v
|
VTarrow
_
->
ity_unit
let
reset_vars
eff
pvs
=
let
add
pv
s
=
if
eff_stale_region
eff
pv
.
pv_ity
.
ity_vars
...
...
@@ -940,7 +936,7 @@ let complete_xpost eff xq =
Mexn
.
set_union
xq
(
Mexn
.
mapi
dummy
(
Mexn
.
set_diff
xe
xq
))
let
spec_invariant
lenv
pvs
vty
spec
=
let
ity
=
ity_o
r_unit
vty
in
let
ity
=
ity_o
f_vty
vty
in
let
pvs
=
spec_pvset
pvs
spec
in
let
rvs
=
reset_vars
spec
.
c_effect
pvs
in
let
xpost
=
complete_xpost
spec
.
c_effect
spec
.
c_xpost
in
...
...
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