Mostly show sqrt 2 is irrational (#53)

2025-10-19 01:58:45 +00:00 · 2019-10-22 20:56:58 +01:00
parent 6eaa181104
commit f5f4cf1376
8 changed files with 244 additions and 37 deletions
--- a/Numbers/Rationals.agda
+++ b/Numbers/Rationals.agda
@@ -33,6 +33,9 @@ a *Q b = fieldOfFractionsTimes ℤIntDom a b
 0Q : ℚ
 0Q = Ring.0R ℚRing

+injectionQ : ℤ → ℚ
+injectionQ z = z ,, (nonneg 1 , λ ())
+
 ℚField : Field ℚRing
 ℚField = fieldOfFractions ℤIntDom