updated ROADMAP; cleaning up

ROADMAP

@@ -226,9 +226,7 @@ See manual Section xx
 
 * (JCF) ameliorer why3doc
  - DONE rajouter la production des liens
- - produire un index.html
- - entree makefile pour produire la bibliotheque standard de Why3 en HTML
-   (pour mettre sur le site Web)
+ - DONE produire un index.html
 
 * DONE provers
  - DONE (CLAUDE) Ensure that we kill a prover after some time

src/programs/pgm_typing.ml

@@ -2186,15 +2186,7 @@ let add_types uc dl =
         | Ty.Tyvar _ ->
             ()
         | Ty.Tyapp (ts, tyl) ->
-            let y = ts.ts_name.id_string in
-            let n =
-(**
-              if Mstr.mem y def then begin
-                visit y; of_option (Hashtbl.find nregions y)
-              end else
-**)
-                (get_mtsymbol ts).mt_regions
-            in
+            let n = (get_mtsymbol ts).mt_regions in
             let rl = regions_tyapp ts n tyl in
             List.iter (fun r -> declare_region_type r.R.r_ty) rl;
             List.iter visit_type tyl