diff options
| author | Hugo Herbelin | 2015-04-21 15:54:26 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2015-04-21 15:56:56 +0200 |
| commit | 7d261ef454e918c70b8fff1dd10bbe0fbdcb57a8 (patch) | |
| tree | 385ed91f0215e4411d02ad81c932976758f830a0 /interp | |
| parent | ce6bbd05b7d741750228956a7e045cb202ec0e74 (diff) | |
Fixing #3376 and #4191 (wrong index of maximally-inserted implicit argument
in the presence of let-ins).
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrintern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 5151d2a10a..8f0d56c5bd 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -1913,7 +1913,7 @@ let interp_rawcontext_evars env evdref bl = | Some b -> let c = understand_judgment_tcc env evdref b in let d = (na, Some c.uj_val, c.uj_type) in - (push_rel d env, d::params, succ n, impls)) + (push_rel d env, d::params, n, impls)) (env,[],1,[]) (List.rev bl) in (env, par), impls |