mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-24 12:14:26 +03:00
11 lines
174 B
Idris
11 lines
174 B
Idris
%default total
|
|
|
|
isNat : Type -> Bool
|
|
isNat Nat = True
|
|
isNat (List Char) = False
|
|
isNat Int = False
|
|
isNat _ = False
|
|
|
|
trivialEquality : isNat Int = False
|
|
trivialEquality = Refl
|