X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnCicCoercion.mli;h=ca65aa953b9edcdf2d6dd28782107d06e3d0cd66;hb=c83721701dbbd44d3d547fdec6c4a5658322f424;hp=1d31d469f74dc6f32befa02f8404f823b3656ca9;hpb=c3fc204cc02f1031b5d17fb0f2be1fc01e5c452f;p=helm.git

diff --git a/helm/software/components/ng_refiner/nCicCoercion.mli b/helm/software/components/ng_refiner/nCicCoercion.mli
index 1d31d469f..ca65aa953 100644
--- a/helm/software/components/ng_refiner/nCicCoercion.mli
+++ b/helm/software/components/ng_refiner/nCicCoercion.mli
@@ -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