File tree Expand file tree Collapse file tree 2 files changed +5
-5
lines changed Expand file tree Collapse file tree 2 files changed +5
-5
lines changed Original file line number Diff line number Diff line change @@ -50,7 +50,7 @@ Additions to existing modules
50
50
m/n≡0⇒m<n : .{{_ : NonZero n}} → m / n ≡ 0 → m < n
51
51
m/n≢0⇒n≤m : .{{_ : NonZero n}} → m / n ≢ 0 → n ≤ m
52
52
53
- nonZero : DivMod dividend divisor → NonZero divisor
53
+ nonZeroDivisor : DivMod dividend divisor → NonZero divisor
54
54
```
55
55
56
56
* Added new proofs in ` Data.Nat.Properties ` :
@@ -61,4 +61,4 @@ Additions to existing modules
61
61
pred-cancel-< : pred m < pred n → m < n
62
62
pred-injective : .{{NonZero m}} → .{{NonZero n}} → pred m ≡ pred n → m ≡ n
63
63
pred-cancel-≡ : pred m ≡ pred n → ((m ≡ 0 × n ≡ 1) ⊎ (m ≡ 1 × n ≡ 0)) ⊎ m ≡ n
64
- ```
64
+ ```
Original file line number Diff line number Diff line change @@ -12,7 +12,7 @@ open import Agda.Builtin.Nat using (div-helper; mod-helper)
12
12
13
13
open import Data.Fin.Base using (Fin; toℕ; fromℕ<)
14
14
open import Data.Fin.Properties using (nonZeroIndex; toℕ-fromℕ<)
15
- open import Data.Nat.Base as Nat hiding (nonZero)
15
+ open import Data.Nat.Base
16
16
open import Data.Nat.DivMod.Core
17
17
open import Data.Nat.Divisibility.Core
18
18
open import Data.Nat.Induction
@@ -471,8 +471,8 @@ record DivMod (dividend divisor : ℕ) : Set where
471
471
remainder : Fin divisor
472
472
property : dividend ≡ toℕ remainder + quotient * divisor
473
473
474
- nonZero : NonZero divisor
475
- nonZero = nonZeroIndex remainder
474
+ nonZeroDivisor : NonZero divisor
475
+ nonZeroDivisor = nonZeroIndex remainder
476
476
477
477
478
478
infixl 7 _div_ _mod_ _divMod_
You can’t perform that action at this time.
0 commit comments