X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnCicCoercion.ml;h=29fe0fd540d48924dd06a8b52c319cc9497848bb;hb=c22f39a5d5afc0ef55beb221e00e2e6703b13d90;hp=29f28ba5c3a4608269b5245b500ee7fd8f3b268f;hpb=8bc5bc0e8375a85736f6a5df317d129d5efa8de4;p=helm.git

diff --git a/helm/software/components/ng_refiner/nCicCoercion.ml b/helm/software/components/ng_refiner/nCicCoercion.ml
index 29f28ba5c..29fe0fd54 100644
--- a/helm/software/components/ng_refiner/nCicCoercion.ml
+++ b/helm/software/components/ng_refiner/nCicCoercion.ml
@@ -31,6 +31,9 @@ class status =
   val db = empty_db
   method coerc_db = db
   method set_coerc_db v = {< db = v >}
+  method set_coercion_status
+   : 'status. < coerc_db : db; .. > as 'status -> 'self
+   = fun o -> {< db = o#coerc_db >}
  end
 
 let index_coercion status c src tgt arity arg =