diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-05-27 17:24:55 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-05-27 17:24:55 +0000 |
| commit | a0df6a89bd29e7e058d0734c93549789ba477859 (patch) | |
| tree | fabf24b0b87fdd9be9e9cc43abd4ca91801cd637 /pretyping/evd.mli | |
| parent | 223c8ca43cdd5a2615b436ef5faa055b182073ac (diff) | |
Populate the sort constraints set correctly during unification. Add a
[set_eq_sort_variable] for cases where two universes should be equal,
fix [evars_reset_evd] to keep sort constraints and use [whd_sort_var]
directly in [whd_evar].
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12149 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evd.mli')
| -rw-r--r-- | pretyping/evd.mli | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pretyping/evd.mli b/pretyping/evd.mli index a26c2dadc..040cbf28c 100644 --- a/pretyping/evd.mli +++ b/pretyping/evd.mli @@ -240,6 +240,7 @@ val new_sort_variable : evar_defs -> sorts * evar_defs val is_sort_variable : evar_defs -> sorts -> bool val whd_sort_variable : evar_defs -> constr -> constr val set_leq_sort_variable : evar_defs -> sorts -> sorts -> evar_defs +val set_eq_sort_variable : evar_defs -> sorts -> sorts -> evar_defs val define_sort_variable : evar_defs -> sorts -> sorts -> evar_defs val solve_sort_constraints : evar_defs -> evar_defs |