diff options
| author | Hugo Herbelin | 2016-09-22 11:14:37 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-09-22 11:17:13 +0200 |
| commit | 464c680b631e1ba892f2171a36002d6ca184bc4f (patch) | |
| tree | 0f046047aa0e14509e1a8b7d99e832816707a0a5 /pretyping | |
| parent | da708e759a1518bf4304e3d0edd725ed4176941f (diff) | |
Fixing #5095 (non relevant too strict test in let-in abstraction).
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/unification.ml | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index cd0bbfa300..347bf6f9e5 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -1570,14 +1570,7 @@ let make_abstraction_core name (test,out) env sigma c ty occs check_occs concl = let compute_dependency _ (hyp,_,_ as d) (sign,depdecls) = match occurrences_of_hyp hyp occs with | NoOccurrences, InHyp -> - if indirectly_dependent c d depdecls then - (* Told explicitly not to abstract over [d], but it is dependent *) - let id' = indirect_dependency d depdecls in - errorlabstrm "" (str "Cannot abstract over " ++ Nameops.pr_id id' - ++ str " without also abstracting or erasing " ++ Nameops.pr_id hyp - ++ str ".") - else - (push_named_context_val d sign,depdecls) + (push_named_context_val d sign,depdecls) | AllOccurrences, InHyp as occ -> let occ = if likefirst then LikeFirst else AtOccs occ in let newdecl = replace_term_occ_decl_modulo occ test mkvarid d in |