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

diff --git a/matita/components/ng_extraction/mlutil.mli b/matita/components/ng_extraction/mlutil.mli
index a04dc2914..6427d7882 100644
--- a/matita/components/ng_extraction/mlutil.mli
+++ b/matita/components/ng_extraction/mlutil.mli
@@ -63,16 +63,16 @@ type 'status abbrev_map =
  'status -> NReference.reference -> ('status * ml_type) option
 
 val type_expand :
- #status as 'status -> 'status abbrev_map -> ml_type -> 'status * ml_type
-val type_simpl : #status as 'status -> ml_type -> 'status * ml_type
+ (#status as 'status) -> 'status abbrev_map -> ml_type -> 'status * ml_type
+val type_simpl : (#status as 'status) -> ml_type -> 'status * ml_type
 val type_to_sign :
- #status as 'status -> 'status abbrev_map -> ml_type -> 'status * sign
+ (#status as 'status) -> 'status abbrev_map -> ml_type -> 'status * sign
 val type_to_signature :
- #status as 'status -> 'status abbrev_map -> ml_type -> 'status * signature
+ (#status as 'status) -> 'status abbrev_map -> ml_type -> 'status * signature
 val type_expunge :
- #status as 'status -> 'status abbrev_map -> ml_type -> 'status * ml_type
+ (#status as 'status) -> 'status abbrev_map -> ml_type -> 'status * ml_type
 val type_expunge_from_sign :
- #status as 'status -> 'status abbrev_map -> signature -> ml_type -> 'status * ml_type
+ (#status as 'status) -> 'status abbrev_map -> signature -> ml_type -> 'status * ml_type
 
 val isDummy : ml_type -> bool
 val isKill : sign -> bool