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

Irrelevant field of fractions (#115)

Browse Source
This commit is contained in:
Patrick Stevens
2020-04-13 14:09:23 +01:00
committed by GitHub
parent 46fcb023d4
commit 1bcb3f8537
10 changed files with 272 additions and 269 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Fields/FieldOfFractions/Lemmas.agda
View File

@@ -15,7 +15,7 @@ open import Fields.FieldOfFractions.Setoid I
open import Fields.FieldOfFractions.Ring I
embedIntoFieldOfFractions : A → fieldOfFractionsSet
embedIntoFieldOfFractions a = a ,, (Ring.1R R , IntegralDomain.nontrivial I)
embedIntoFieldOfFractions a = record { num = a ; denom = Ring.1R R ; denomNonzero = IntegralDomain.nontrivial I }
homIntoFieldOfFractions : RingHom R fieldOfFractionsRing embedIntoFieldOfFractions
RingHom.preserves1 homIntoFieldOfFractions = Equivalence.reflexive (Setoid.eq S)