diff options
| author | Pierre-Marie Pédrot | 2018-10-01 16:10:37 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-20 16:11:27 +0100 |
| commit | c4ec9bd2c8a31f5eddea87bbc3f1605ca731d598 (patch) | |
| tree | 200510ce0fc2b4b3bb5dc34c4f736c76c7433946 /pretyping | |
| parent | 2d81a99e14d32f9f79ae617986148db3a36707e7 (diff) | |
Use a closure for the domain argument of FProd.
The use of a term is not needed for the fast typing algorithm of the
application case, so this tweak brings the best of both worlds.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/inferCumulativity.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/inferCumulativity.ml b/pretyping/inferCumulativity.ml index 4ce7cdff77..e46d03b743 100644 --- a/pretyping/inferCumulativity.ml +++ b/pretyping/inferCumulativity.ml @@ -111,7 +111,7 @@ let rec infer_fterm cv_pb infos variances hd stk = let variances = infer_fterm CONV infos variances ty [] in infer_fterm CONV infos variances bd [] | FProd (_,dom,codom,e) -> - let variances = infer_fterm CONV infos variances (mk_clos e dom) [] in + let variances = infer_fterm CONV infos variances dom [] in infer_fterm cv_pb infos variances (mk_clos (Esubst.subs_lift e) codom) [] | FInd (ind, u) -> let variances = |