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

[ minor ] Make NotBothZero parameter of standard gcd to be erased

Browse Source
This commit is contained in:
Denis Buzdalov 2022-10-28 21:14:47 +03:00 committed by G. Allais
parent 8d7b993cca
commit ff6afb0c59
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
libs/base/Data/Nat.idr
View File

@ -390,7 +390,7 @@ Integral Nat where
export export
covering covering
gcd : (a: Nat) -> (b: Nat) -> {auto ok: NotBothZero a b} -> Nat gcd : (a: Nat) -> (b: Nat) -> {auto 0 ok: NotBothZero a b} -> Nat
gcd a Z = a gcd a Z = a
gcd Z b = b gcd Z b = b
gcd a (S b) = gcd (S b) (modNatNZ a (S b) SIsNonZero) gcd a (S b) = gcd (S b) (modNatNZ a (S b) SIsNonZero)