idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-11-28 02:23:44 +03:00
Code Issues Projects Releases Wiki Activity

Remove decideLTE (#3031)

Browse Source
This commit is contained in:
Saransh Chopra 2023-07-27 03:04:24 -04:00 committed by GitHub
parent 870bc82437
commit 4fcb0fb4a7
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
libs/base/Data/Nat/Order.idr
View File

@ -22,12 +22,6 @@ ltesuccinjective : {0 n, m : Nat} -> Not (LTE n m) -> Not (LTE (S n) (S m))
ltesuccinjective disprf (LTESucc nLTEm) = void (disprf nLTEm) ltesuccinjective disprf (LTESucc nLTEm) = void (disprf nLTEm)
ltesuccinjective disprf LTEZero impossible ltesuccinjective disprf LTEZero impossible
-- Remove any time after release of 0.6.0
||| Deprecated. Use `Nat.isLTE`.
public export
decideLTE : (n : Nat) -> (m : Nat) -> Dec (LTE n m)
decideLTE = isLTE
||| If a predicate is decidable then we can decide whether it holds on ||| If a predicate is decidable then we can decide whether it holds on
||| a bounded domain. ||| a bounded domain.
public export public export
@ -58,11 +52,11 @@ decideLTEBounded pdec n with (decideLTBounded pdec (S n))
public export public export
Decidable 2 [Nat,Nat] LTE where Decidable 2 [Nat,Nat] LTE where
decide = decideLTE decide = isLTE
public export public export
Decidable 2 [Nat,Nat] LT where Decidable 2 [Nat,Nat] LT where
decide m = decideLTE (S m) decide m = isLTE (S m)
public export public export
lte : (m : Nat) -> (n : Nat) -> Dec (LTE m n) lte : (m : Nat) -> (n : Nat) -> Dec (LTE m n)