diff options
| author | Gaëtan Gilbert | 2019-10-18 20:30:43 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-10-18 20:30:43 +0200 |
| commit | c5f2b14020ea1fb2b11321f1daa00abe8dec3477 (patch) | |
| tree | f17e83a8d3555c8b74eeb15c39d853c06240db51 /kernel/retypeops.ml | |
| parent | fe4e6aae2f4ae86a2f1f7262709ace8d31869c8c (diff) | |
| parent | 5c5790d587ad425a882ea8bcdcf28d5ac046aaa3 (diff) | |
Merge PR #10904: Fix a De Bruijn bug in the computation of term relevance in the kernel.
Reviewed-by: SkySkimmer
Reviewed-by: Zimmi48
Ack-by: gares
Diffstat (limited to 'kernel/retypeops.ml')
| -rw-r--r-- | kernel/retypeops.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/kernel/retypeops.ml b/kernel/retypeops.ml index a51b762f95..f398e6a5da 100644 --- a/kernel/retypeops.ml +++ b/kernel/retypeops.ml @@ -71,6 +71,7 @@ let rec relevance_of_fterm env extra lft f = | FLambda (len, tys, bdy, e) -> let extra = List.rev_append (List.map (fun (x,_) -> binder_relevance x) tys) extra in let lft = Esubst.el_liftn len lft in + let e = Esubst.subs_liftn len e in relevance_of_term_extra env extra lft e bdy | FLetIn (x, _, _, bdy, e) -> relevance_of_term_extra env (x.binder_relevance :: extra) |