proposition names in Why can start with an lowercase

src/core/pretty.ml

@@ -39,10 +39,9 @@ let iprinter,tprinter,pprinter =
   in
   let isanitize = sanitizer char_to_alpha char_to_alnumus in
   let lsanitize = sanitizer char_to_lalpha char_to_alnumus in
-  let usanitize = sanitizer char_to_ualpha char_to_alnumus in
   create_ident_printer bl ~sanitizer:isanitize,
   create_ident_printer bl ~sanitizer:lsanitize,
-  create_ident_printer bl ~sanitizer:usanitize
+  create_ident_printer bl ~sanitizer:isanitize
 
 let forget_all () =
   forget_all iprinter;

src/printer/why3.ml

@@ -39,10 +39,9 @@ let iprinter,tprinter,pprinter =
   in
   let isanitize = sanitizer char_to_alpha char_to_alnumus in
   let lsanitize = sanitizer char_to_lalpha char_to_alnumus in
-  let usanitize = sanitizer char_to_ualpha char_to_alnumus in
   create_ident_printer bl ~sanitizer:isanitize,
   create_ident_printer bl ~sanitizer:lsanitize,
-  create_ident_printer bl ~sanitizer:usanitize
+  create_ident_printer bl ~sanitizer:isanitize
 
 let forget_all () =
   forget_all iprinter;