Move towards base-n expansions (#112)

This commit is contained in:
Patrick Stevens
2020-04-11 19:46:26 +01:00
committed by GitHub
parent e9aa1bcc05
commit 380548134d
22 changed files with 312 additions and 102 deletions

View File

@@ -90,6 +90,3 @@ negateQWellDefined a b a=b = inverseWellDefined (Ring.additiveGroup Ring) {a}
Ordered : TotallyOrderedRing POrdered
Ordered = fieldOfFractionsOrderedRing
charNot2 : ((Ring.1R Ring) +Q (Ring.1R Ring)) =Q (Ring.0R Ring) False
charNot2 ()