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

Alternative LUB property (#97)

Browse Source
This commit is contained in:
Patrick Stevens
2020-02-13 07:51:41 +00:00
committed by GitHub
parent d183b40d11
commit 9de323c5e8
4 changed files with 157 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -75,3 +75,6 @@ abstract
moveInequality : {a b : A} → a < b → 0R < (b + inverse a)
moveInequality {a} {b} a<b = <WellDefined invRight reflexive (orderRespectsAddition a<b (inverse a))
moveInequality' : {a b : A} → a < b → (a + inverse b) < 0R
moveInequality' {a} {b} a<b = <WellDefined reflexive invRight (orderRespectsAddition a<b (inverse b))