diff options
| author | Pierre-Marie Pédrot | 2016-09-14 10:27:38 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-09-14 11:10:25 +0200 |
| commit | 3e794be5f02ed438cdc5a351d09bdfb54c0be01a (patch) | |
| tree | 3bbed56609e021f5c560a10037bafdae62e0db14 /pretyping/typing.mli | |
| parent | 0e94cb62410354e5df4e65b34e7cbf8451b31d6e (diff) | |
| parent | 2aaa58c22e37b05e3637ac7161bb464da7db054a (diff) | |
Merge branch 'v8.5' into v8.6
Diffstat (limited to 'pretyping/typing.mli')
| -rw-r--r-- | pretyping/typing.mli | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/pretyping/typing.mli b/pretyping/typing.mli index e524edcca8..04e5e40bc2 100644 --- a/pretyping/typing.mli +++ b/pretyping/typing.mli @@ -39,3 +39,8 @@ val e_solve_evars : env -> evar_map ref -> constr -> constr (** (first constr is term to match, second is return predicate) *) val check_allowed_sort : env -> evar_map -> pinductive -> constr -> constr -> unit + +(** Raise an error message if bodies have types not unifiable with the + expected ones *) +val check_type_fixpoint : Loc.t -> env -> evar_map ref -> + Names.Name.t array -> types array -> unsafe_judgment array -> unit |