X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnCicUnification.mli;h=83a59b64c550ad977d38148d7b19428fca9d2b72;hb=18c4ae3e237f4f4c0e034359da79f62f141f20d2;hp=13de7f4433337c21babf78856df4686091d94b4e;hpb=1409a972815b8e4e697d9ad55c77d9292cbea787;p=helm.git

diff --git a/helm/software/components/ng_refiner/nCicUnification.mli b/helm/software/components/ng_refiner/nCicUnification.mli
index 13de7f443..83a59b64c 100644
--- a/helm/software/components/ng_refiner/nCicUnification.mli
+++ b/helm/software/components/ng_refiner/nCicUnification.mli
@@ -25,9 +25,15 @@ val unify :
 (* this should be moved elsewhere *)
 val fix_sorts: NCic.term -> NCic.term
 
+(* delift_type_wrt_terms st m s c t args
+ *   lift t (length args) 
+ *      [ rel 1 ... rel (len args) / lift (length args) (arg_1 .. arg_n) ]
+ *)      
 val delift_type_wrt_terms:
   #NRstatus.status -> 
   NCic.metasenv -> NCic.substitution -> NCic.context -> 
-  NCic.term -> NCic.term list ->
+  NCic.term -> NCic.term list -> 
    NCic.metasenv * NCic.substitution * NCic.term
 
+
+val debug : bool ref