patrick/agdaproofs
1
0
Fork 0
mirror of https://github.com/Smaug123/agdaproofs synced 2025-10-08 05:18:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

Rename some confusing fields (#51)

Browse Source
This commit is contained in:
Patrick Stevens
2019-10-13 09:31:54 +01:00
committed by GitHub
parent 96d15c6017
commit 959071214e
21 changed files with 441 additions and 441 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Numbers/Integers/Multiplication.agda
View File

@@ -180,13 +180,13 @@ distLemma a b rewrite Semiring.commutative ℕSemiring (a +N b *N a) b | Semirin
ℤRing : Ring (reflSetoid ℤ) _+Z_ _*Z_
Ring.additiveGroup ℤRing = ℤGroup
Ring.multWellDefined ℤRing refl refl = refl
Ring.*WellDefined ℤRing refl refl = refl
Ring.1R ℤRing = nonneg 1
Ring.groupIsAbelian ℤRing {a} {b} = +ZCommutative a b
Ring.multAssoc ℤRing {a} {b} {c} = *ZAssociative a b c
Ring.multCommutative ℤRing {a} {b} = *ZCommutative a b
Ring.multDistributes ℤRing {a} {b} {c} = *ZDistributesOver+Z a b c
Ring.multIdentIsIdent ℤRing {a} = *ZleftIdent a
Ring.*Associative ℤRing {a} {b} {c} = *ZAssociative a b c
Ring.*Commutative ℤRing {a} {b} = *ZCommutative a b
Ring.*DistributesOver+ ℤRing {a} {b} {c} = *ZDistributesOver+Z a b c
Ring.identIsIdent ℤRing {a} = *ZleftIdent a
intDom : (a b : ℤ) → a *Z b ≡ nonneg 0 → (a ≡ nonneg 0) || (b ≡ nonneg 0)
intDom (nonneg zero) (nonneg b) pr = inl refl