edwinb/Idris2-boot
1
1
Fork 0
mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-11-30 22:05:32 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #159 from ska80/integral-nat

Browse Source 
Add an implementation of Integral for Nat
This commit is contained in:
Edwin Brady 2019-12-07 15:26:50 +00:00 committed by GitHub
commit 0c4301d1c2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -214,6 +214,11 @@ export
divCeil : Nat -> Nat -> Nat divCeil : Nat -> Nat -> Nat
divCeil x (S y) = divCeilNZ x (S y) SIsNotZ divCeil x (S y) = divCeilNZ x (S y) SIsNotZ
public export
Integral Nat where
div = divNat
mod = modNat
export export
gcd : (a: Nat) -> (b: Nat) -> {auto ok: NotBothZero a b} -> Nat gcd : (a: Nat) -> (b: Nat) -> {auto ok: NotBothZero a b} -> Nat
gcd a Z = a gcd a Z = a
@ -410,5 +415,3 @@ multOneRightNeutral (S left) =
let inductiveHypothesis = multOneRightNeutral left in let inductiveHypothesis = multOneRightNeutral left in
rewrite inductiveHypothesis in rewrite inductiveHypothesis in
Refl Refl