Use of standard OCaml syntax

[helm.git] / matita / components / ng_extraction / common.mli

diff --git a/matita/components/ng_extraction/common.mli b/matita/components/ng_extraction/common.mli
index 96550bd4d5a87d5fb0bc5be47a0da1b65832fb71..38e591d8765beb2a3b0bcb685d4d8ccdc45aca43 100644 (file)
--- 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