diff options
Diffstat (limited to 'pretyping/classops.ml')
-rw-r--r-- | pretyping/classops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml index cd7cd2e0a..3fe3b3ff2 100644 --- a/pretyping/classops.ml +++ b/pretyping/classops.ml @@ -59,7 +59,7 @@ let cl_typ_ord t1 t2 = match t1, t2 with | CL_SECVAR v1, CL_SECVAR v2 -> Id.compare v1 v2 | CL_CONST c1, CL_CONST c2 -> con_user_ord c1 c2 | CL_IND i1, CL_IND i2 -> ind_user_ord i1 i2 - | _ -> Pervasives.compare t1 t2 + | _ -> Pervasives.compare t1 t2 (** OK *) module ClTyp = struct type t = cl_typ |