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

Approximate reals by rationals (#56)

Browse Source
This commit is contained in:
Patrick Stevens
2019-10-27 22:55:27 +00:00
committed by GitHub
parent 0d68919127
commit 553dd061d9
8 changed files with 284 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Numbers/Naturals/Naturals.agda
View File

@@ -560,3 +560,6 @@ module Numbers.Naturals.Naturals where
inequalityShrinkLeft : {a b c : ℕ} → a +N b <N c → a <N c
inequalityShrinkLeft {a} {b} {c} (le x proof) = le (x +N b) (transitivity (applyEquality succ (transitivity (additionNIsAssociative x b a) (applyEquality (x +N_) (additionNIsCommutative b a)))) proof)
<NWellDefined' : {a b c d : ℕ} → a ≡ c → b ≡ d → a <N b → c <N d
<NWellDefined' {a} {b} {c} {d} a=c b=d a<b rewrite a=c | b=d = a<b