Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
Why3
why3
Commits
c292a2c1
Commit
c292a2c1
authored
Oct 11, 2019
by
Sylvain Dailler
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
session/goal: rename goal names from "g'VC" to "G'vc" for readability
parent
0891d5c1
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
3 additions
and
3 deletions
+3
-3
CHANGES.md
CHANGES.md
+1
-1
src/mlw/pmodule.ml
src/mlw/pmodule.ml
+1
-1
src/mlw/vc.ml
src/mlw/vc.ml
+1
-1
No files found.
CHANGES.md
View file @
c292a2c1
...
...
@@ -16,7 +16,7 @@ Language
to give the name
`Foo`
to the corresponding hypothesis after introduction
*
identifiers used for specification (resp. definition) of a function
`foo`
have been renamed from
`foo_spec`
(resp.
`foo_def`
) to
`foo'spec`
(resp.
`foo'def`
) :x:
*
identifiers used for goals
`VC foo`
have been renamed to
`foo'
VC
`
*
identifiers used for goals
`VC foo`
have been renamed to
`foo'
vc
`
*
identifiers used for record constructor
`mk foo`
have been renamed to
`foo'mk`
:x:
*
the
`alias`
clause can now be used in program functions to force the aliasing
of function parameters and/or named returns
...
...
src/mlw/pmodule.ml
View file @
c292a2c1
...
...
@@ -1048,7 +1048,7 @@ let clone_type_decl inst cl tdl kn =
let
add_vc
uc
(
its
,
f
)
=
let
{
id_string
=
nm
;
id_loc
=
loc
}
=
its
.
its_ts
.
ts_name
in
let
attrs
=
Sattr
.
singleton
(
Ident
.
create_attribute
(
"expl:VC for "
^
nm
))
in
let
pr
=
create_prsymbol
(
id_fresh
~
attrs
?
loc
(
nm
^
"'
VC
"
))
in
let
pr
=
create_prsymbol
(
id_fresh
~
attrs
?
loc
(
nm
^
"'
vc
"
))
in
let
d
=
create_pure_decl
(
create_prop_decl
Pgoal
pr
f
)
in
add_pdecl
~
warn
:
false
~
vc
:
false
uc
d
...
...
src/mlw/vc.ml
View file @
c292a2c1
...
...
@@ -1547,7 +1547,7 @@ let mk_vc_decl ({known_map = kn} as env) id f =
let
{
id_string
=
nm
;
id_attrs
=
attrs
;
id_loc
=
loc
}
=
id
in
let
attrs
=
if
attrs_has_expl
attrs
then
attrs
else
Sattr
.
add
(
Ident
.
create_attribute
(
"expl:VC for "
^
nm
))
attrs
in
let
pr
=
create_prsymbol
(
id_fresh
~
attrs
?
loc
(
nm
^
"'
VC
"
))
in
let
pr
=
create_prsymbol
(
id_fresh
~
attrs
?
loc
(
nm
^
"'
vc
"
))
in
let
f
=
wp_forall
(
Mvs
.
keys
(
t_freevars
Mvs
.
empty
f
))
f
in
let
f
=
Typeinv
.
inject
kn
f
in
let
f
=
if
Debug
.
test_flag
debug_no_eval
then
f
else
...
...
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