diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2014-05-24 15:13:47 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2014-05-26 14:16:26 +0200 |
| commit | d8176e6baaa33692ed82b9ac3c6e57e85f51dff0 (patch) | |
| tree | 220abe1095acdff596bbf89b31decd67df11270b /kernel/constr.mli | |
| parent | 13deafee96893a5ec332ad221469e3e5460693f1 (diff) | |
Update infer_conv to record trivial Prop <= Type i constraints that are needed during
unification.
Diffstat (limited to 'kernel/constr.mli')
| -rw-r--r-- | kernel/constr.mli | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/kernel/constr.mli b/kernel/constr.mli index 0e7bafdc6..e9f736903 100644 --- a/kernel/constr.mli +++ b/kernel/constr.mli @@ -210,6 +210,14 @@ val eq_constr_univs : constr Univ.check_function alpha, casts, application grouping and the universe inequalities in [u]. *) val leq_constr_univs : constr Univ.check_function +(** [eq_constr_univs u a b] is [true] if [a] equals [b] modulo alpha, casts, + application grouping and the universe equalities in [u]. *) +val eq_constr_univs_infer : Univ.universes -> constr -> constr -> bool Univ.constrained + +(** [leq_constr_univs u a b] is [true] if [a] is convertible to [b] modulo + alpha, casts, application grouping and the universe inequalities in [u]. *) +val leq_constr_univs_infer : Univ.universes -> constr -> constr -> bool Univ.constrained + (** [eq_constr_universes a b] [true, c] if [a] equals [b] modulo alpha, casts, application grouping and the universe equalities in [c]. *) val eq_constr_universes : constr -> constr -> bool Univ.universe_constrained |