diff options
Diffstat (limited to 'pretyping/pretype_errors.ml')
| -rw-r--r-- | pretyping/pretype_errors.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/pretyping/pretype_errors.ml b/pretyping/pretype_errors.ml index e16d1206aa..99b5a51f93 100644 --- a/pretyping/pretype_errors.ml +++ b/pretyping/pretype_errors.ml @@ -23,9 +23,11 @@ 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 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 position_reporting = (position * int) * constr + +type subterm_unification_error = bool * position_reporting * position_reporting * (constr * constr * unification_error) option type pretype_error = (* Old Case *) |