diff options
| author | herbelin | 2011-03-07 20:55:31 +0000 |
|---|---|---|
| committer | herbelin | 2011-03-07 20:55:31 +0000 |
| commit | 8e4b7319caa0754401c8b868e9ce9490a867d7f1 (patch) | |
| tree | efbb3e085ff7f28dc8310bc906189846f69cf32d /pretyping/evarutil.mli | |
| parent | a5808860fbabd1239d1116c2f4413d56ff99620f (diff) | |
Reverted commit r13893 about propagation of more informative
unification failure messages (it is not fully usable and was not
intended to be committed now, sorry for the noise).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13895 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evarutil.mli')
| -rw-r--r-- | pretyping/evarutil.mli | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/pretyping/evarutil.mli b/pretyping/evarutil.mli index 705ab356fb..a4c07a0196 100644 --- a/pretyping/evarutil.mli +++ b/pretyping/evarutil.mli @@ -74,20 +74,13 @@ val whd_head_evar : evar_map -> constr -> constr val is_ground_term : evar_map -> constr -> bool val is_ground_env : evar_map -> env -> bool val solve_refl : - (env -> evar_map -> conv_pb -> constr -> constr -> bool) + (env -> evar_map -> conv_pb -> constr -> constr -> evar_map * bool) -> env -> evar_map -> existential_key -> constr array -> constr array -> evar_map - -type unification_result = - | Success of evar_map - | UnifFailure of evar_map * Pretype_errors.unification_error - -val is_success : unification_result -> bool - val solve_simple_eqn : - (env -> evar_map -> conv_pb -> constr -> constr -> unification_result) + (env -> evar_map -> conv_pb -> constr -> constr -> evar_map * bool) -> ?choose:bool -> env -> evar_map -> bool option * existential * constr -> - unification_result + evar_map * bool (** [check_evars env initial_sigma extended_sigma c] fails if some new unresolved evar remains in [c] *) |