diff options
author | Arnaud Spiwack <arnaud@spiwack.net> | 2015-02-19 16:35:42 +0100 |
---|---|---|
committer | Arnaud Spiwack <arnaud@spiwack.net> | 2015-02-24 16:37:04 +0100 |
commit | 2f41d8e976621b907925546a192e90e60f0e580b (patch) | |
tree | c6cad6b836d9d92cffac90058f98e500559e72da /kernel/constr.mli | |
parent | 50edb9bb8d43b190996d1d85a2bfd95f52b2db19 (diff) |
Refactoring in [Constr].
[compare_head_gen] defined in terms of [compare_head_gen_leq]. Remove an unused argument from [compare_head_gen_leq].
Diffstat (limited to 'kernel/constr.mli')
-rw-r--r-- | kernel/constr.mli | 9 |
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 |