mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-20 10:02:03 +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
|
|
|