Idris2/tests/idris2/casetree/casetree004/PiMatch.idr

4 lines
74 B
Idris
Raw Normal View History

idMatch : Type -> Bool
idMatch ((x : Type) -> x) = True
idMatch _ = False