X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_extraction%2Fcommon.mli;h=38e591d8765beb2a3b0bcb685d4d8ccdc45aca43;hb=926bd86002f91d2bf2a3ce7376309f5106268959;hp=96550bd4d5a87d5fb0bc5be47a0da1b65832fb71;hpb=66be8fbe19e2ccfa0e6a7abeba605152d1322595;p=helm.git

diff --git a/matita/components/ng_extraction/common.mli b/matita/components/ng_extraction/common.mli
index 96550bd4d..38e591d87 100644
--- a/matita/components/ng_extraction/common.mli
+++ b/matita/components/ng_extraction/common.mli
@@ -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