File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -1142,9 +1142,9 @@ let rec to_constr =
1142
1142
let ((ind, _) as indu ) =
1143
1143
Constr. destInd (EConstr.Unsafe. to_constr tc)
1144
1144
in
1145
- let mib = Global. lookup_mind (fst ind) in
1145
+ let mib, mip = Inductive. lookup_mind_specif ( Global. env () ) ind in
1146
1146
begin
1147
- match mib .mind_record with
1147
+ match mip .mind_record with
1148
1148
| PrimRecord infos ->
1149
1149
let p, r =
1150
1150
Declareops. inductive_make_projection ind mib ~proj_arg: field
@@ -1153,7 +1153,7 @@ let rec to_constr =
1153
1153
mkProj (Projection. make p false , r, c)
1154
1154
| NotRecord | FakeRecord ->
1155
1155
if
1156
- mib.mind_packets.(snd ind) .mind_relevance
1156
+ mip .mind_relevance
1157
1157
== EConstr.Unsafe. to_relevance EConstr.ERelevance. irrelevant
1158
1158
then
1159
1159
CErrors. user_err
You can’t perform that action at this time.
0 commit comments