X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_extraction%2FocamlExtraction.mli;h=e2db6a6294c0417ed12d75d604ffe1644f09e901;hb=8a5c30a914d7ff665218b31853c6fb4bcf58aa08;hp=a714bd13b7182f74663ae7ce7e53100e3693a24f;hpb=d7aca3eacb4bd8dc56223098f92e5370c82f92ff;p=helm.git

diff --git a/matita/components/ng_extraction/ocamlExtraction.mli b/matita/components/ng_extraction/ocamlExtraction.mli
index a714bd13b..e2db6a629 100644
--- a/matita/components/ng_extraction/ocamlExtraction.mli
+++ b/matita/components/ng_extraction/ocamlExtraction.mli
@@ -2,7 +2,7 @@ open OcamlExtractionTable
 
 (* These commands have an effect iff OCAML_EXTRACTION is set *)
 
-val print_open: #status as 'status -> NUri.uri list -> 'status
-val print_ocaml_of_obj: #status as 'status -> NCic.obj -> 'status
-val open_file: #status as 'status -> baseuri:string -> string -> 'status
-val close_file: #status as 'status -> 'status
+val print_open: (#status as 'status) -> NUri.uri list -> 'status
+val print_ocaml_of_obj: (#status as 'status) -> NCic.obj -> 'status
+val open_file: (#status as 'status) -> baseuri:string -> string -> 'status
+val close_file: (#status as 'status) -> 'status