diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2014-08-25 15:22:18 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2014-08-26 12:13:01 +0200 |
| commit | bbcb802d81fad79fc76bde031bafb130132946ba (patch) | |
| tree | d2bdd6f25bb220c6a143c754e17aabb2c01cac6d /pretyping/evarsolve.mli | |
| parent | 64041ca0c17430085c20b7754277313fdb439a6a (diff) | |
Make evarconv and unification able to handle eta for records in presence
of metas/evars
Diffstat (limited to 'pretyping/evarsolve.mli')
| -rw-r--r-- | pretyping/evarsolve.mli | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/pretyping/evarsolve.mli b/pretyping/evarsolve.mli index a0d0f6fdf..0d0f3c0e5 100644 --- a/pretyping/evarsolve.mli +++ b/pretyping/evarsolve.mli @@ -51,10 +51,6 @@ val solve_simple_eqn : conv_fun -> ?choose:bool -> env -> evar_map -> val reconsider_conv_pbs : conv_fun -> evar_map -> unification_result -(** Raises [Occur] if the evar occurs in the evar-expanded version of the term. *) -val is_unification_pattern_evar_occur : env -> evar_map -> existential -> constr list -> - constr -> constr list option - val is_unification_pattern_evar : env -> evar_map -> existential -> constr list -> constr -> constr list option @@ -63,6 +59,8 @@ val is_unification_pattern : env * int -> evar_map -> constr -> constr list -> val solve_pattern_eqn : env -> constr list -> constr -> constr +val noccur_evar : env -> evar_map -> Evar.t -> constr -> bool + exception IllTypedInstance of env * types * types (* May raise IllTypedInstance if types are not convertible *) |