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

Elevate the real numbers to actually existing (#65)

Browse Source
This commit is contained in:
Patrick Stevens
2019-11-04 07:34:59 +00:00
committed by GitHub
parent d95f510cdd
commit 82b81b4bab
5 changed files with 55 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Numbers/Rationals/Definition.agda
View File

@@ -85,3 +85,6 @@ negateQWellDefined a b a=b = inverseWellDefined (Ring.additiveGroup ℚRing) {a}
ℚOrdered : TotallyOrderedRing ℚPOrdered
ℚOrdered = fieldOfFractionsOrderedRing
ℚcharNot2 : ((Ring.1R ℚRing) +Q (Ring.1R ℚRing)) =Q (Ring.0R ℚRing) → False
ℚcharNot2 ()