First pair root norm le eight

import Mathlib.Algebra.QuadraticAlgebra.Basic
import Mathlib.Algebra.Ring.Basic
import Mathlib.Algebra.Ring.Equiv
import Mathlib.Data.Finset.Card
import Mathlib.Data.Finset.Prod
import Mathlib.Data.Int.Interval
import Mathlib.Data.Int.Sqrt
import Mathlib.Tactic.IntervalCases
import Mathlib.Tactic.Linarith
import Mathlib.Tactic.LinearCombination
import Definitions.Def_D1Bound5_Coordinates_Definitions

section
namespace D1Bound5
open QuadInt


theorem _root_.D1Bound5.first_pair_root_norm_le_eight {tau nu : ℤ}
    (hd : 0 < discriminant tau nu) (a b q : QuadInt tau nu)
    (hab : a.norm*b.norm ≤ 63) (hq : q*q = a*b+1) : q.norm ≤ 8 := by sorry





















end D1Bound5
end