diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-06-08 16:19:27 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-06-08 16:38:47 +0200 |
| commit | 3e1f527a50142a5c73ead24e3fcdb6e2ac9f50e5 (patch) | |
| tree | 64c82d234919fbf76134d2d7b4833047813711a9 /proofs/clenv.ml | |
| parent | 102d7418e399de646b069924277e4baea1badaca (diff) | |
| parent | ce1e1dba837ad6e2c79ff7e531b5e3adea3cd327 (diff) | |
Merge branch 'v8.6'
Diffstat (limited to 'proofs/clenv.ml')
| -rw-r--r-- | proofs/clenv.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index 79d2e4694..34875cbcd 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -662,7 +662,8 @@ let evar_of_binder holes = function | NamedHyp s -> evar_with_name holes s | AnonHyp n -> try - let h = List.nth holes (pred n) in + let nondeps = List.filter (fun hole -> not hole.hole_deps) holes in + let h = List.nth nondeps (pred n) in h.hole_evar with e when CErrors.noncritical e -> user_err (str "No such binder.") |