X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_extraction%2Fcommon.mli;h=38e591d8765beb2a3b0bcb685d4d8ccdc45aca43;hb=712af5b8dc7dab1ebfa6532b73b91c96cb4c6837;hp=2cf44e003d93fd4f2b1c4e93883444a4a2070294;hpb=59dfa0b85ba8a74f4b5c175f72ac7ebeed6fca7f;p=helm.git

diff --git a/matita/components/ng_extraction/common.mli b/matita/components/ng_extraction/common.mli
index 2cf44e003..38e591d87 100644
--- a/matita/components/ng_extraction/common.mli
+++ b/matita/components/ng_extraction/common.mli
@@ -9,8 +9,8 @@
 (*i $Id: common.mli 14641 2011-11-06 11:59:10Z herbelin $ i*)
 
 open Coq
-open Miniml
-open Mlutil
+(**open Miniml
+open Mlutil*)
 open OcamlExtractionTable
 
 (** By default, in module Format, you can do horizontal placing of blocks
@@ -35,9 +35,9 @@ val push_vars : identifier list -> env -> identifier list * env
 val get_db_name : int -> env -> identifier
 
 (* true = capitalize *)
-val modname_of_filename: #status as 'status-> bool -> string -> 'status * string
+val modname_of_filename: (#status as 'status)-> bool -> string -> 'status * string
 
 type kind = Term | Type | Cons
 
 val pp_global :
- #status as 'status -> kind -> NReference.reference -> 'status * string
+ (#status as 'status) -> kind -> NReference.reference -> 'status * string