aboutsummaryrefslogtreecommitdiffhomepage
path: root/kernel/constr.mli
diff options
context:
space:
mode:
Diffstat (limited to 'kernel/constr.mli')
-rw-r--r--kernel/constr.mli9
1 files changed, 4 insertions, 5 deletions
diff --git a/kernel/constr.mli b/kernel/constr.mli
index 5d11511b4..622b33c71 100644
--- a/kernel/constr.mli
+++ b/kernel/constr.mli
@@ -285,16 +285,15 @@ val compare_head_gen : (bool -> Univ.Instance.t -> Univ.Instance.t -> bool) ->
(constr -> constr -> bool) ->
constr -> constr -> bool
-(** [compare_head_gen_leq u s sle f fle c1 c2] compare [c1] and [c2]
- using [f] to compare the immediate subterms of [c1] of [c2] for
+(** [compare_head_gen_leq u s f fle c1 c2] compare [c1] and [c2] using
+ [f] to compare the immediate subterms of [c1] of [c2] for
conversion, [fle] for cumulativity, [u] to compare universe
instances (the first boolean tells if they belong to a constant),
- [s] to compare sorts for equality and [sle] for subtyping; Cast's,
- binders name and Cases annotations are not taken into account *)
+ [s] to compare sorts for for subtyping; Cast's, binders name and
+ Cases annotations are not taken into account *)
val compare_head_gen_leq : (bool -> Univ.Instance.t -> Univ.Instance.t -> bool) ->
(Sorts.t -> Sorts.t -> bool) ->
- (Sorts.t -> Sorts.t -> bool) ->
(constr -> constr -> bool) ->
(constr -> constr -> bool) ->
constr -> constr -> bool