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

Move equiv rels (#46)

Browse Source
This commit is contained in:
Patrick Stevens
2019-09-28 22:24:41 +01:00
committed by GitHub
parent b92e6b2dd8
commit 00ce1dfdf8
20 changed files with 455 additions and 769 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Numbers/Rationals.agda
View File

@@ -13,6 +13,7 @@ open import Setoids.Orders
open import Functions
open import Fields.FieldOfFractions
open import Fields.FieldOfFractionsOrder
open import Sets.EquivalenceRelations
module Numbers.Rationals where
@@ -41,7 +42,7 @@ module Numbers.Rationals where
a =Q b = Setoid._∼_ (fieldOfFractionsSetoid ℤIntDom) a b
reflQ : {x : ℚ} → (x =Q x)
reflQ {x} = Reflexive.reflexive (Equivalence.reflexiveEq (Setoid.eq (fieldOfFractionsSetoid ℤIntDom))) {x}
reflQ {x} = Equivalence.reflexive (Setoid.eq (fieldOfFractionsSetoid ℤIntDom)) {x}
_≤Q_ : ℚ → ℚ → Set
a ≤Q b = (a <Q b) || (a =Q b)