diff options
| author | Maxime Dénès | 2018-11-27 11:13:55 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-11-27 11:13:55 +0100 |
| commit | e828ffaf1df8deb250ade91123b20b4d53c88060 (patch) | |
| tree | b01bc99f341a655e978c65c34c47af1aae8a10c4 /pretyping | |
| parent | 31a1fa82bfc747df0c71c93346f689def876794a (diff) | |
| parent | a181bcb8d8050984e57f4a21cc7e97c043feb043 (diff) | |
Merge PR #8255: Fast typing of application nodes
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/inferCumulativity.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/inferCumulativity.ml b/pretyping/inferCumulativity.ml index 9762d0f1d9..e46d03b743 100644 --- a/pretyping/inferCumulativity.ml +++ b/pretyping/inferCumulativity.ml @@ -110,9 +110,9 @@ let rec infer_fterm cv_pb infos variances hd stk = let (_,ty,bd) = destFLambda mk_clos hd in let variances = infer_fterm CONV infos variances ty [] in infer_fterm CONV infos variances bd [] - | FProd (_,dom,codom) -> + | FProd (_,dom,codom,e) -> let variances = infer_fterm CONV infos variances dom [] in - infer_fterm cv_pb infos variances codom [] + infer_fterm cv_pb infos variances (mk_clos (Esubst.subs_lift e) codom) [] | FInd (ind, u) -> let variances = if Instance.is_empty u then variances |