patrick/agdaproofs
1
0
Fork 0
mirror of https://github.com/Smaug123/agdaproofs synced 2025-10-12 23:28:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Another phrasing of Euclidean Domain (#90)

Browse Source
This commit is contained in:
Patrick Stevens
2019-12-23 10:26:20 +00:00
committed by GitHub
parent 2f64111407
commit 876396eaaa
4 changed files with 105 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Rings/UniqueFactorisationDomains/Definition.agda
View File

@@ -21,7 +21,7 @@ record Factorisation {r : A} (nonzero : (r ∼ 0R) → False) (nonunit : (Unit r
factoriseIsFactorisation : fold (_*_) 1R factorise ∼ r
factoriseIsIrreducibles : allTrue Irreducible factorise
record UFD : Set (a ⊔ b) where
field
factorisation : {r : A} → (nonzero : (r ∼ 0R) → False) → (nonunit : (Unit r) → False) → Factorisation nonzero nonunit
uniqueFactorisation : {r : A} → (nonzero : (r ∼ 0R) → False) → (nonunit : (Unit r) → False) → (f1 f2 : Factorisation nonzero nonunit) → {!Sg !}
--record UFD : Set (a ⊔ b) where
-- field
-- factorisation : {r : A} → (nonzero : (r ∼ 0R) → False) → (nonunit : (Unit r) → False) → Factorisation nonzero nonunit
-- uniqueFactorisation : {r : A} → (nonzero : (r ∼ 0R) → False) → (nonunit : (Unit r) → False) → (f1 f2 : Factorisation nonzero nonunit) → {!Sg !}