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

Bump up to 2.6.2

Browse Source
This commit is contained in:
Smaug123
2021-10-31 18:19:15 +00:00
parent 4b8f6993d0
commit 7f4ed2ec7e
7 changed files with 37 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Fields/CauchyCompletion/Approximation.agda
View File

@@ -123,7 +123,9 @@ abstract
ans : (m : ℕ) → (N +N N8) <N m → (e/8 + index (apply _+_ (constSequence (index (CauchyCompletion.elts a) (succ N) + e/2)) (map inverse (CauchyCompletion.elts a))) m) < ((e/2 + e/4) + e/8)
ans m N<m rewrite indexAndApply (constSequence (index (CauchyCompletion.elts a) (succ N) + e/2)) (map inverse (CauchyCompletion.elts a)) _+_ {m} | indexAndConst (index (CauchyCompletion.elts a) (succ N) + e/2) m | equalityCommutative (mapAndIndex (CauchyCompletion.elts a) inverse m) = <WellDefined groupIsAbelian (+WellDefined groupIsAbelian (Equivalence.reflexive eq)) (orderRespectsAddition (<WellDefined (Equivalence.transitive eq groupIsAbelian (Equivalence.reflexive eq)) (Equivalence.reflexive eq) q) e/8)
where
am : A
am = index (CauchyCompletion.elts a) m
aN : A
aN = index (CauchyCompletion.elts a) (succ N)
t : abs (am + inverse aN) < e/4
t = cauchyBeyondN {m} {succ N} (inequalityShrinkLeft N<m) (le 0 refl)