X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_refiner%2FnCicCoercion.ml;h=bb6430873c0af142fea6f17b5634487bd3fa7d49;hb=8a5c30a914d7ff665218b31853c6fb4bcf58aa08;hp=7447a68f2e70dd540be9584157083e4c09ceec74;hpb=d7aca3eacb4bd8dc56223098f92e5370c82f92ff;p=helm.git diff --git a/matita/components/ng_refiner/nCicCoercion.ml b/matita/components/ng_refiner/nCicCoercion.ml index 7447a68f2..bb6430873 100644 --- a/matita/components/ng_refiner/nCicCoercion.ml +++ b/matita/components/ng_refiner/nCicCoercion.ml @@ -46,7 +46,7 @@ class virtual status = method coerc_db = db method set_coerc_db v = {< db = v >} method set_coercion_status - : 'status. #g_status as 'status -> 'self + : 'status. (#g_status as 'status) -> 'self = fun o -> {< db = o#coerc_db >}#set_unifhint_status o end