diff options
| author | Gaëtan Gilbert | 2018-10-31 14:00:38 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-10-31 14:07:06 +0100 |
| commit | baa8812294d48bf9d0e6e62a39440e9ffb2b93e2 (patch) | |
| tree | e25e1aeda78f88ee0006bd9e332538829c9e0316 /checker | |
| parent | 5c951efbc27e6061f80b839d7a1c862d8fb4c587 (diff) | |
Fix #8876: expected number of arguments for cumulative constructors
ee573583701c8e53e8b82978998a9df93170cd79 ported to the checker.
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/reduction.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/checker/reduction.ml b/checker/reduction.ml index 58a3f4e410..1158152f63 100644 --- a/checker/reduction.ml +++ b/checker/reduction.ml @@ -192,10 +192,7 @@ let convert_constructors | Monomorphic_ind _ | Polymorphic_ind _ -> convert_universes univs u1 u2 | Cumulative_ind cumi -> let num_cnstr_args = - let nparamsctxt = - mind.mind_nparams + mind.mind_packets.(ind).mind_nrealargs - in - nparamsctxt + mind.mind_packets.(ind).mind_consnrealargs.(cns - 1) + mind.mind_nparams + mind.mind_packets.(ind).mind_consnrealargs.(cns - 1) in if not (num_cnstr_args = sv1 && num_cnstr_args = sv2) then convert_universes univs u1 u2 |