Commit c292a2c1 authored by Sylvain Dailler's avatar Sylvain Dailler

session/goal: rename goal names from "g'VC" to "G'vc" for readability

parent 0891d5c1
......@@ -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
......
......@@ -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
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment