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

Definitions for the reals, classically (#95)

Browse Source
This commit is contained in:
Patrick Stevens
2020-02-08 13:20:21 +00:00
committed by GitHub
parent d29c7ea681
commit d183b40d11
17 changed files with 786 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Rings/Orders/Total/Lemmas.agda
View File

@@ -344,3 +344,6 @@ abstract
absBoundedImpliesBounded {a} {b} a<b | inl (inl x) = a<b
absBoundedImpliesBounded {a} {b} a<b | inl (inr x) = SetoidPartialOrder.<Transitive pOrder x (SetoidPartialOrder.<Transitive pOrder (lemm2 a x) a<b)
absBoundedImpliesBounded {a} {b} a<b | inr x = a<b
orderedImpliesCharNot2 : (0R ∼ 1R → False) → 1R + 1R ∼ 0R → False
orderedImpliesCharNot2 0!=1 x = irreflexive (<WellDefined (identRight {0R}) x (ringAddInequalities (0<1 0!=1) (0<1 0!=1)))