diff options
| author | Pierre-Marie Pédrot | 2018-05-19 12:12:43 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-20 16:09:44 +0100 |
| commit | 82f7c721ea066a4776be09bd40444cf491f3659e (patch) | |
| tree | 69b1c704a859a0990ff1b1192a9ac0443cdf88fb /kernel/cClosure.mli | |
| parent | 4c25871dc47f40caf9a3a1662cbb8c703a0876ab (diff) | |
Do not wrap FProd return types in a closure.
There is little point to this as the type is dependent on an open value and
is never computed further.
Diffstat (limited to 'kernel/cClosure.mli')
| -rw-r--r-- | kernel/cClosure.mli | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/cClosure.mli b/kernel/cClosure.mli index b6c87b3732..3163833ef3 100644 --- a/kernel/cClosure.mli +++ b/kernel/cClosure.mli @@ -114,7 +114,7 @@ type fterm = | FCoFix of cofixpoint * fconstr subs | FCaseT of case_info * constr * fconstr * constr array * fconstr subs (* predicate and branches are closures *) | FLambda of int * (Name.t * constr) list * constr * fconstr subs - | FProd of Name.t * fconstr * fconstr + | FProd of Name.t * constr * constr * fconstr subs | FLetIn of Name.t * fconstr * fconstr * constr * fconstr subs | FEvar of existential * fconstr subs | FLIFT of int * fconstr |