Idris2/tests/idris2/casetree/casetree001/Issue762.idr
2023-09-07 14:57:22 +01:00

12 lines
180 B
Idris

import Data.Singleton
%default total
-- data constructors
f : Singleton (MkPair True) -> Bool
f (Val _) = True
-- type constructors
g : Singleton Maybe -> Bool
g (Val _) = True