mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-29 22:51:51 +03:00
9 lines
161 B
Idris
9 lines
161 B
Idris
|
import Data.Nat
|
||
|
|
|
||
|
|
lteZeroSuccAbsurd : LTE (S Z) Z -> Void
|
||
|
|
lteZeroSuccAbsurd y = absurd y
|
||
|
|
|
||
|
|
lteSuccAbsurd : LTE (S x) x -> Void
|
||
|
|
lteSuccAbsurd y = succNotLTEpred y
|
||
|
|
|