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 /kernel/reduction.ml | |
| 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 'kernel/reduction.ml')
| -rw-r--r-- | kernel/reduction.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/reduction.ml b/kernel/reduction.ml index f9423a848d..97cd4c00d7 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -444,7 +444,7 @@ and eqappr cv_pb l2r infos (lft1,st1) (lft2,st2) cuniv = (* Luo's system *) let el1 = el_stack lft1 v1 in let el2 = el_stack lft2 v2 in - let cuniv = ccnv CONV l2r infos el1 el2 (mk_clos e c1) (mk_clos e' c'1) cuniv in + let cuniv = ccnv CONV l2r infos el1 el2 c1 c'1 cuniv in ccnv cv_pb l2r infos (el_lift el1) (el_lift el2) (mk_clos (subs_lift e) c2) (mk_clos (subs_lift e') c'2) cuniv (* Eta-expansion on the fly *) |