diff options
| author | Matthieu Sozeau | 2016-03-14 11:13:21 +0100 |
|---|---|---|
| committer | Matthieu Sozeau | 2016-03-15 15:30:24 +0100 |
| commit | 8f5ca2a6100eb243d2a9842a13e02b793ee0aea1 (patch) | |
| tree | 5d35d4ef6d8f33a952f43bb3679e5e9965fde24e | |
| parent | 779fd5d9a4982b19fd257b61f444ae8e6155dcbe (diff) | |
Try eta-expansion of records only on non-recursive ones
| -rw-r--r-- | pretyping/unification.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 31fd711bf9..9b6e856b80 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -609,7 +609,7 @@ let is_eta_constructor_app env ts f l1 term = | Construct (((_, i as ind), j), u) when i == 0 && j == 1 -> let mib = lookup_mind (fst ind) env in (match mib.Declarations.mind_record with - | Some (Some (_,exp,projs)) when mib.Declarations.mind_finite <> Decl_kinds.CoFinite && + | Some (Some (_,exp,projs)) when mib.Declarations.mind_finite == Decl_kinds.BiFinite && Array.length projs == Array.length l1 - mib.Declarations.mind_nparams -> (** Check that the other term is neutral *) is_neutral env ts term |