agda / agda

The testsuite does not cover this error atm:

agda/src/full/Agda/TypeChecking/Telescope/Path.hs

Lines 44 to 52 in 8c52e3f

    
           getLevel :: Abs Type -> TCM Level 
        
           getLevel b = do 
        
             s <- reduce $ getSort <$> b 
        
             case s of 
        
               NoAbs _ (Type l) -> return l 
        
               Abs n (Type l) | not (freeIn 0 s) -> return $ noabsApp __IMPOSSIBLE__ (Abs n l) 
        
               _ -> typeError . GenericError . show =<< 
        
                    (text "The type is non-fibrant or its sort depends on an interval variable" <+> prettyTCM (unAbs b)) 
        
                    -- TODO better Type Error

	getLevel :: Abs Type -> TCM Level
	getLevel b = do
	s <- reduce $ getSort <$> b
	case s of
	NoAbs _ (Type l) -> return l
	Abs n (Type l) \| not (freeIn 0 s) -> return $ noabsApp __IMPOSSIBLE__ (Abs n l)
	_ -> typeError . GenericError . show =<<
	(text "The type is non-fibrant or its sort depends on an interval variable" <+> prettyTCM (unAbs b))
	-- TODO better Type Error

No reproducer for error raised in `telePiPath`