aboutsummaryrefslogtreecommitdiffhomepage
path: root/pretyping
diff options
context:
space:
mode:
Diffstat (limited to 'pretyping')
-rw-r--r--pretyping/classops.ml2
1 files changed, 2 insertions, 0 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml
index 9041a0af4..7793216d5 100644
--- a/pretyping/classops.ml
+++ b/pretyping/classops.ml
@@ -61,6 +61,7 @@ let coe_info_typ_equal c1 c2 =
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_PROJ c1, CL_PROJ c2 -> con_user_ord c1 c2
| CL_IND i1, CL_IND i2 -> ind_user_ord i1 i2
| _ -> Pervasives.compare t1 t2 (** OK *)
@@ -472,6 +473,7 @@ let subst_coercion (subst, c) =
let discharge_cl = function
| CL_CONST kn -> CL_CONST (Lib.discharge_con kn)
| CL_IND ind -> CL_IND (Lib.discharge_inductive ind)
+ | CL_PROJ p -> CL_PROJ (Lib.discharge_con p)
| cl -> cl
let discharge_coercion (_, c) =