diff options
| author | Maxime Dénès | 2018-01-23 10:01:33 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-01-23 10:01:33 +0100 |
| commit | 2e798fb83db743ce44350af6f7f9442811f374ad (patch) | |
| tree | c21f8be141617491622fdb1f9adf62cfc3026ed9 /kernel/environ.mli | |
| parent | 89d14fa4f16e9741108887177d43d34675261d22 (diff) | |
| parent | fe0e62bebcd71aca8b56cc615d81667a31e43388 (diff) | |
Merge PR #6627: Fix #6619: coqchk does not reduce compatibility constants for primitive projections
Diffstat (limited to 'kernel/environ.mli')
| -rw-r--r-- | kernel/environ.mli | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/kernel/environ.mli b/kernel/environ.mli index 7cc541258d..69d811a642 100644 --- a/kernel/environ.mli +++ b/kernel/environ.mli @@ -146,13 +146,11 @@ val type_in_type_constant : Constant.t -> env -> bool body and [NotEvaluableConst IsProj] if [c] is a projection and [Not_found] if it does not exist in [env] *) -type const_evaluation_result = NoBody | Opaque | IsProj +type const_evaluation_result = NoBody | Opaque exception NotEvaluableConst of const_evaluation_result -val constant_value : env -> Constant.t puniverses -> constr constrained val constant_type : env -> Constant.t puniverses -> types constrained -val constant_opt_value : env -> Constant.t puniverses -> (constr * Univ.Constraint.t) option val constant_value_and_type : env -> Constant.t puniverses -> constr option * types * Univ.Constraint.t (** The universe context associated to the constant, empty if not |