From d8176e6baaa33692ed82b9ac3c6e57e85f51dff0 Mon Sep 17 00:00:00 2001 From: Matthieu Sozeau Date: Sat, 24 May 2014 15:13:47 +0200 Subject: Update infer_conv to record trivial Prop <= Type i constraints that are needed during unification. --- kernel/constr.mli | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'kernel/constr.mli') 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 -- cgit v1.2.3