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

CHANGES.md

@@ -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

@@ -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

@@ -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