diff options
| author | Matthieu Sozeau | 2015-01-13 00:25:21 +0530 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-01-13 00:29:09 +0530 |
| commit | c60f40ccecf526b5c7ce5adfe5908fdac3f66771 (patch) | |
| tree | cb0eb77577f7de305043d081dbf8e7ecacc02149 /kernel | |
| parent | d797153f3e44279dd61804c3d2e75ec7892f38bf (diff) | |
Fix issue in printing due to de Bruijn bug when constructing compatibility
constr for primitive records (not used anywhere else than printing).
Problem reported by P. LeFanu Lumsdaine on HoTT/HoTT.
Also add some minor fixes in detyping and pretty printing related to universes.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/indtypes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index 635c5c4bf6..99d9f52c96 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -683,7 +683,7 @@ let compute_projections ((kn, _ as ind), u as indsp) n x nparamargs params let ccl' = liftn 1 2 ccl in let p = mkLambda (x, lift 1 rp, ccl') in let branch = it_mkLambda_or_LetIn (mkRel (len - i)) ctx in - let body = mkCase (ci, p, mkRel 1, [|branch|]) in + let body = mkCase (ci, p, mkRel 1, [|lift 1 branch|]) in it_mkLambda_or_LetIn (mkLambda (x,rp,body)) params in let projections (na, b, t) (i, j, kns, pbs, subst) = |