Skip to content

Commit a50bf2a

Browse files
committed
Require dependencies when inductives are in types
1 parent 0d484d6 commit a50bf2a

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

src/Agda2Lambox/Compile/Type.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -143,6 +143,7 @@ compileTypeTerm = \case
143143

144144
-- if it's an inductive, we only apply the parameters
145145
else if isDataOrRecDef def then do
146+
lift $ requireDef q
146147
ind <- liftTCM $ toInductive q
147148
([],) . foldl' LBox.TApp (LBox.TInd ind)
148149
<$> compileElims (take (getInductiveParams def) es)

0 commit comments

Comments
 (0)