diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-09-23 18:35:09 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-09-23 18:35:09 +0200 |
commit | a321074cdd2f9375662c7c9f17be5c045328bd82 (patch) | |
tree | 80936ec5824dc0049d1a1f3eabc81616bd29600c /pretyping | |
parent | 20d6c289bff303ec1a4cab3a56431989d0e527d2 (diff) | |
parent | 464c680b631e1ba892f2171a36002d6ca184bc4f (diff) |
Merge branch 'v8.5' into v8.6
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 bc888b897..6573bd238 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -1599,14 +1599,7 @@ let make_abstraction_core name (test,out) env sigma c ty occs check_occs concl = let hyp = get_id d in 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 |