Use of standard OCaml syntax

[helm.git] / matita / components / ng_refiner / nCicCoercion.ml

diff --git a/matita/components/ng_refiner/nCicCoercion.ml b/matita/components/ng_refiner/nCicCoercion.ml
index cfb9d1b6b8e927ba78f2e0918d22331e98080656..bb6430873c0af142fea6f17b5634487bd3fa7d49 100644 (file)
--- a/matita/components/ng_refiner/nCicCoercion.ml
+++ b/matita/components/ng_refiner/nCicCoercion.ml
@@ -21,7 +21,7 @@ module COT : Set.OrderedType
 with type t = string * NCic.term * int * int  * NCic.term * NCic.term = 
   struct
      type t = string * NCic.term * int * int * NCic.term * NCic.term
-     let compare = Pervasives.compare
+     let compare = Stdlib.compare
   end
 
 module CoercionSet = Set.Make(COT)
@@ -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