diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-06-27 21:37:56 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-06-28 18:52:55 +0200 |
commit | 1f0e44c96872196d0051618de77c4735eb447540 (patch) | |
tree | 8b69aa789ebff430d021af431ad9ad453883ba25 /pretyping/pretype_errors.ml | |
parent | efa921c807e48cfc19943d2bfd7f4eb11f8f9e09 (diff) |
Moved code for finding subterms (pattern, induction, set, generalize, ...)
into a specific new cleaned file find_subterm.ml.
This makes things clearer but also solves some dependencies problem
between Evd, Termops and Pretype_errors.
Diffstat (limited to 'pretyping/pretype_errors.ml')
-rw-r--r-- | pretyping/pretype_errors.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/pretyping/pretype_errors.ml b/pretyping/pretype_errors.ml index d8f51054d..934e7bdbb 100644 --- a/pretyping/pretype_errors.ml +++ b/pretyping/pretype_errors.ml @@ -23,6 +23,10 @@ type unification_error = | InstanceNotSameType of existential_key * env * types * types | UnifUnivInconsistency of Univ.univ_inconsistency +type position =(Id.t * Locus.hyp_location_flag) option + +type subterm_unification_error = bool * (position * int * constr) * (position * int * constr) * (constr * constr * unification_error) option + type pretype_error = (* Old Case *) | CantFindCaseType of constr @@ -46,7 +50,7 @@ type pretype_error = | UnexpectedType of constr * constr | NotProduct of constr | TypingError of type_error - | CannotUnifyOccurrences of Termops.subterm_unification_error + | CannotUnifyOccurrences of subterm_unification_error exception PretypeError of env * Evd.evar_map * pretype_error |