Irrelevant field of fractions (#115)

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

View File

@@ -51,7 +51,8 @@ injectionNQ :
injectionNQ n = injectionQ (nonneg n)
injectionQInjective : Injection injectionQ
injectionQInjective pr = equalityLeft pr
injectionQInjective {nonneg x} {nonneg .x} refl = refl
injectionQInjective {negSucc x} {negSucc .x} refl = refl
Field : Field Ring
Field = fieldOfFractions