EG
Size: a a a
EG
p
p
p
а
а
а
p
p
p
p
EG
nontotal : Int -> Type
nontotal x = nontotal x
foo : (nontotal 0) -> (nontotal 0)
foo x = foo x
main : IO ()
main = putStrLn (foo "x")
p
nontotal : Int -> Type
nontotal x = nontotal x
foo : (nontotal 0) -> (nontotal 0)
foo x = foo x
main : IO ()
main = putStrLn (foo "x")
EG
nontotal 0
имеет тип Type
EG
nontotal 0
не вернёт String
никогда?p
nontotal 0
не вернёт String
никогда?EG
p
p