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

Better structure of Rationals (#15)

Browse Source
This commit is contained in:
Patrick Stevens
2019-01-06 21:33:08 +00:00
committed by GitHub
parent 7f8fc1b271
commit 02434c01f9
1 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Rationals.agda
View File

@@ -13,5 +13,17 @@ open import FieldOfFractions
module Rationals where module Rationals where
ℚ : Field' ℚ : Set
ℚ = encapsulateField (fieldOfFractions ℤIntDom) ℚ = fieldOfFractionsSet ℤIntDom
_+Q_ : ℚ → ℚ → ℚ
a +Q b = fieldOfFractionsPlus ℤIntDom a b
_*Q_ : ℚ → ℚ → ℚ
a *Q b = fieldOfFractionsTimes ℤIntDom a b
ℚRing : Ring (fieldOfFractionsSetoid ℤIntDom) _+Q_ _*Q_
ℚRing = fieldOfFractionsRing ℤIntDom
ℚField : Field ℚRing
ℚField = fieldOfFractions ℤIntDom