Distortion of knots
DefinitionSpeed of a knot#✓fully proved
For a knot \(K\) with parametrization \(\gamma\) and a real number \(t\), the speed of \(K\) at \(t\) is the Euclidean norm \(\lVert \gamma'(t) \rVert\) of the derivative of \(\gamma\) at \(t\).
def speed (K : Knot) (t : ℝ) : ℝ :=
‖deriv K.curve t‖
structure Knot where
/-- The parametrizing map. -/
curve : ℝ → R3
/-- The map is smooth. -/
smooth : ContDiff ℝ (⊤ : ℕ∞) curve
/-- The map has period `2π`. -/
periodic : ∀ t, curve (t + 2 * Real.pi) = curve t
/-- The map is injective on a fundamental period. -/
injOn : Set.InjOn curve (Set.Ico 0 (2 * Real.pi))
/-- The map is an immersion (its derivative is everywhere nonzero). -/
immersion : ∀ t, deriv curve t ≠ 0
WantedExt/Topology/ConwayKnotShared.lean:78
Uses 2 · Used by 1
DefinitionArc length between two parameters#✓fully proved
For a knot \(K\) with parametrization \(\gamma\) and real numbers \(s\) and \(t\), the arc length of \(K\) between \(s\) and \(t\) is \(\left| \int_s^t \lVert \gamma'(u) \rVert \, du \right|\), the length of the arc that \(\gamma\) traces between the parameters \(s\) and \(t\). It does not depend on the order of \(s\) and \(t\).
def parameterArcLength (K : Knot) (s t : ℝ) : ℝ :=
|∫ u in s..t, speed K u|
structure Knot where
/-- The parametrizing map. -/
curve : ℝ → R3
/-- The map is smooth. -/
smooth : ContDiff ℝ (⊤ : ℕ∞) curve
/-- The map has period `2π`. -/
periodic : ∀ t, curve (t + 2 * Real.pi) = curve t
/-- The map is injective on a fundamental period. -/
injOn : Set.InjOn curve (Set.Ico 0 (2 * Real.pi))
/-- The map is an immersion (its derivative is everywhere nonzero). -/
immersion : ∀ t, deriv curve t ≠ 0
WantedExt/Topology/ConwayKnotShared.lean:78
def speed (K : Knot) (t : ℝ) : ℝ :=
‖deriv K.curve t‖
WantedExt/Topology/PardonDistortionWanted.lean:81
Uses 2 · Used by 2
DefinitionTotal arc length of a knot#✓fully proved
For a knot \(K\) with parametrization \(\gamma\), the total arc length of \(K\) is the arc length of \(K\) between the parameters \(0\) and \(2\pi\), namely \(\left| \int_0^{2\pi} \lVert \gamma'(u) \rVert \, du \right|\).
def totalArcLength (K : Knot) : ℝ :=
parameterArcLength K 0 (2 * Real.pi)
structure Knot where
/-- The parametrizing map. -/
curve : ℝ → R3
/-- The map is smooth. -/
smooth : ContDiff ℝ (⊤ : ℕ∞) curve
/-- The map has period `2π`. -/
periodic : ∀ t, curve (t + 2 * Real.pi) = curve t
/-- The map is injective on a fundamental period. -/
injOn : Set.InjOn curve (Set.Ico 0 (2 * Real.pi))
/-- The map is an immersion (its derivative is everywhere nonzero). -/
immersion : ∀ t, deriv curve t ≠ 0
WantedExt/Topology/ConwayKnotShared.lean:78
def parameterArcLength (K : Knot) (s t : ℝ) : ℝ :=
|∫ u in s..t, speed K u|
WantedExt/Topology/PardonDistortionWanted.lean:86
Uses 2 · Used by 1
DefinitionIntrinsic distance on a knot#✓fully proved
For a knot \(K\) and real numbers \(s\) and \(t\), let \(\ell\) be the arc length of \(K\) between the parameters \(s\) and \(t\), and let \(L\) be the total arc length of \(K\). The intrinsic distance between \(s\) and \(t\) is \(\min(\ell, L - \ell)\). When \(s\) and \(t\) lie in one closed interval of length \(2\pi\), this is the length of the shorter of the two arcs of \(K\) joining the points with parameters \(s\) and \(t\).
def intrinsicDistance (K : Knot) (s t : ℝ) : ℝ :=
min (parameterArcLength K s t) (totalArcLength K - parameterArcLength K s t)
structure Knot where
/-- The parametrizing map. -/
curve : ℝ → R3
/-- The map is smooth. -/
smooth : ContDiff ℝ (⊤ : ℕ∞) curve
/-- The map has period `2π`. -/
periodic : ∀ t, curve (t + 2 * Real.pi) = curve t
/-- The map is injective on a fundamental period. -/
injOn : Set.InjOn curve (Set.Ico 0 (2 * Real.pi))
/-- The map is an immersion (its derivative is everywhere nonzero). -/
immersion : ∀ t, deriv curve t ≠ 0
WantedExt/Topology/ConwayKnotShared.lean:78
def parameterArcLength (K : Knot) (s t : ℝ) : ℝ :=
|∫ u in s..t, speed K u|
WantedExt/Topology/PardonDistortionWanted.lean:86
def totalArcLength (K : Knot) : ℝ :=
parameterArcLength K 0 (2 * Real.pi)
WantedExt/Topology/PardonDistortionWanted.lean:90
Uses 3 · Used by 1
DefinitionDistortion ratio#✓fully proved
For a knot \(K\) with parametrization \(\gamma\) and real numbers \(s\) and \(t\), the distortion ratio of \(K\) at \(s\) and \(t\) is the intrinsic distance between \(s\) and \(t\) along \(K\) divided by the Euclidean distance \(\lVert \gamma(s) - \gamma(t) \rVert\) in \(\mathbb{R}^3\), where division by \(0\) gives \(0\).
def distortionRatio (K : Knot) (s t : ℝ) : ℝ :=
intrinsicDistance K s t / dist (K.curve s) (K.curve t)
structure Knot where
/-- The parametrizing map. -/
curve : ℝ → R3
/-- The map is smooth. -/
smooth : ContDiff ℝ (⊤ : ℕ∞) curve
/-- The map has period `2π`. -/
periodic : ∀ t, curve (t + 2 * Real.pi) = curve t
/-- The map is injective on a fundamental period. -/
injOn : Set.InjOn curve (Set.Ico 0 (2 * Real.pi))
/-- The map is an immersion (its derivative is everywhere nonzero). -/
immersion : ∀ t, deriv curve t ≠ 0
WantedExt/Topology/ConwayKnotShared.lean:78
def intrinsicDistance (K : Knot) (s t : ℝ) : ℝ :=
min (parameterArcLength K s t) (totalArcLength K - parameterArcLength K s t)
WantedExt/Topology/PardonDistortionWanted.lean:95
Uses 3 · Used by 1
DefinitionDistortion of a knot#✓fully proved
For a knot \(K\), the distortion of \(K\) is the supremum in the extended nonnegative reals \([0, \infty]\) of the distortion ratios of \(K\) at \(s\) and \(t\), taken over all distinct parameters \(s \ne t\) in the half-open interval \([0, 2\pi)\).
def distortion (K : Knot) : ℝ≥0∞ :=
sSup {d : ℝ≥0∞ | ∃ s ∈ Ico (0 : ℝ) (2 * Real.pi),
∃ t ∈ Ico (0 : ℝ) (2 * Real.pi),
s ≠ t ∧ d = ENNReal.ofReal (distortionRatio K s t)}
structure Knot where
/-- The parametrizing map. -/
curve : ℝ → R3
/-- The map is smooth. -/
smooth : ContDiff ℝ (⊤ : ℕ∞) curve
/-- The map has period `2π`. -/
periodic : ∀ t, curve (t + 2 * Real.pi) = curve t
/-- The map is injective on a fundamental period. -/
injOn : Set.InjOn curve (Set.Ico 0 (2 * Real.pi))
/-- The map is an immersion (its derivative is everywhere nonzero). -/
immersion : ∀ t, deriv curve t ≠ 0
WantedExt/Topology/ConwayKnotShared.lean:78
def distortionRatio (K : Knot) (s t : ℝ) : ℝ :=
intrinsicDistance K s t / dist (K.curve s) (K.curve t)
WantedExt/Topology/PardonDistortionWanted.lean:99
Uses 2 · Used by 1
DefinitionStandard torus curve#✓fully proved
For natural numbers \(p\) and \(q\), the standard \((p, q)\)-torus curve is the map \(\mathbb{R} \to \mathbb{R}^3\) sending \(t\) to \(((2 + \cos qt) \cos pt,\ (2 + \cos qt) \sin pt,\ \sin qt)\). It lies on the torus of revolution about the \(z\)-axis with major radius \(2\) and minor radius \(1\), and as \(t\) runs over \([0, 2\pi]\) it winds \(p\) times around the \(z\)-axis and \(q\) times around the core circle of the torus.
def standardTorusCurve (p q : ℕ) (t : ℝ) : R3 :=
WithLp.toLp 2 (fun i : Fin 3 =>
if i.val = 0 then
(2 + Real.cos ((q : ℝ) * t)) * Real.cos ((p : ℝ) * t)
else if i.val = 1 then
(2 + Real.cos ((q : ℝ) * t)) * Real.sin ((p : ℝ) * t)
else
Real.sin ((q : ℝ) * t))
abbrev R3 : Type := EuclideanSpace ℝ (Fin 3)
WantedExt/Topology/ConwayKnotShared.lean:74
Uses 1 · Used by 1
TheoremPardon's lower bound for the distortion of torus knots#●ready to prove
Let \(p\) and \(q\) be coprime positive integers, let \(T_{p,q}\) be the standard \((p, q)\)-torus curve, and let \(K\) be a knot with parametrization \(\gamma\). Suppose there are an ambient isotopy \(H\) of \(\mathbb{R}^3\), with time-one map \(H_1\), and a strictly increasing diffeomorphism \(\sigma\) of \(\mathbb{R}\) with \(\sigma(t + 2\pi) = \sigma(t) + 2\pi\) for all real \(t\), such that \(H_1(\gamma(t)) = T_{p,q}(\sigma(t))\) for every real \(t\). Then the distortion of \(K\) is at least \(\min(p, q)/160\).
This is the smooth, oriented specialization of Pardon's theorem, which bounds the distortion of every rectifiable curve in the knot type of the \((p, q)\)-torus knot.
public theorem_wanted pardon_torus_knot_distortion
(p q : ℕ) (_hp : 0 < p) (_hq : 0 < q) (_hc : Nat.Coprime p q)
(K : Knot)
(_hclass : ∃ Φ : AmbientIsotopy, ∃ σ : CircleReparam,
∀ t, Φ.H 1 (K.curve t) = standardTorusCurve p q (σ.f t)) :
(1 / 160 : ℝ≥0∞) * (Nat.min p q : ℝ≥0∞) ≤ distortion K
structure Knot where
/-- The parametrizing map. -/
curve : ℝ → R3
/-- The map is smooth. -/
smooth : ContDiff ℝ (⊤ : ℕ∞) curve
/-- The map has period `2π`. -/
periodic : ∀ t, curve (t + 2 * Real.pi) = curve t
/-- The map is injective on a fundamental period. -/
injOn : Set.InjOn curve (Set.Ico 0 (2 * Real.pi))
/-- The map is an immersion (its derivative is everywhere nonzero). -/
immersion : ∀ t, deriv curve t ≠ 0
WantedExt/Topology/ConwayKnotShared.lean:78
structure AmbientIsotopy where
/-- The forward family. -/
H : ℝ → R3 → R3
/-- The inverse family. -/
Hinv : ℝ → R3 → R3
/-- The forward family is jointly smooth in `(t, x)`. -/
smooth : ContDiff ℝ (⊤ : ℕ∞) (Function.uncurry H)
/-- The inverse family is jointly smooth in `(t, x)`. -/
smooth_inv : ContDiff ℝ (⊤ : ℕ∞) (Function.uncurry Hinv)
/-- `Hinv t` is a left inverse of `H t`. -/
inv_left : ∀ t x, Hinv t (H t x) = x
/-- `Hinv t` is a right inverse of `H t`. -/
⋯
WantedExt/Topology/ConwayKnotShared.lean:103
structure CircleReparam where
/-- A lift `ℝ → ℝ` of a circle self-map. -/
f : ℝ → ℝ
/-- A lifted inverse. -/
finv : ℝ → ℝ
/-- The lift is smooth. -/
smooth : ContDiff ℝ (⊤ : ℕ∞) f
/-- The inverse lift is smooth. -/
smooth_inv : ContDiff ℝ (⊤ : ℕ∞) finv
/-- `finv` is a left inverse to `f`. -/
left_inv : ∀ t, finv (f t) = t
/-- `finv` is a right inverse to `f`. -/
⋯
WantedExt/Topology/ConwayKnotShared.lean:119
def standardTorusCurve (p q : ℕ) (t : ℝ) : R3 :=
WithLp.toLp 2 (fun i : Fin 3 =>
if i.val = 0 then
(2 + Real.cos ((q : ℝ) * t)) * Real.cos ((p : ℝ) * t)
else if i.val = 1 then
(2 + Real.cos ((q : ℝ) * t)) * Real.sin ((p : ℝ) * t)
else
Real.sin ((q : ℝ) * t))
WantedExt/Topology/PardonDistortionWanted.lean:114
def distortion (K : Knot) : ℝ≥0∞ :=
sSup {d : ℝ≥0∞ | ∃ s ∈ Ico (0 : ℝ) (2 * Real.pi),
∃ t ∈ Ico (0 : ℝ) (2 * Real.pi),
s ≠ t ∧ d = ENNReal.ofReal (distortionRatio K s t)}
WantedExt/Topology/PardonDistortionWanted.lean:106
Sources
- John Pardon, 'On the distortion of knots on embedded surfaces', Annals of Mathematics (2) 174 (2011), no. 1, 637-646, Theorem 1.1. https://doi.org/10.4007/annals.2011.174.1.21. Problem
pardon_torus_knot_distortionof the lean-eval benchmark.
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.