Don't reinvent the wheel.

[helm.git] / helm / software / components / ng_refiner / nCicCoercion.mli

diff --git a/helm/software/components/ng_refiner/nCicCoercion.mli b/helm/software/components/ng_refiner/nCicCoercion.mli
index 0d96a74074943192b3acf2859afc00cd6edda71d..ca65aa953b9edcdf2d6dd28782107d06e3d0cd66 100644 (file)
--- a/helm/software/components/ng_refiner/nCicCoercion.mli
+++ b/helm/software/components/ng_refiner/nCicCoercion.mli
@@ -17,7 +17,7 @@ class status :
  object ('self)
   method coerc_db: db
   method set_coerc_db: db -> 'self
-  method set_coercion_status: status -> 'self
+  method set_coercion_status: <coerc_db: db; ..> -> 'self
  end
 
 val empty_db: db
@@ -40,3 +40,8 @@ val look_for_coercion:
       (* enriched metasenv, new term, its type, metavriable to
        * be unified with the old term *)
       (NCic.metasenv * NCic.term * NCic.term * NCic.term) list
+
+(* returns (coercion,arity,arg) *)
+val match_coercion:
+ #status -> metasenv:NCic.metasenv -> subst:NCic.substitution ->
+  context:NCic.context -> NCic.term -> (NCic.term * int * int) option