Quadrisecant theorem
DefinitionPeriod#✓fully proved
The period is the real number \(2\pi\).
noncomputable def period : ℝ := 2 * Real.pi
Used by 1
DefinitionStandard circle#✓fully proved
The standard circle is the curve \(\mathbb{R} \to \mathbb{R}^3\) given by \(t \mapsto (\cos t, \sin t, 0)\), the unit circle in the \(xy\)-plane.
noncomputable def standardCircle (t : ℝ) : R3 :=
!₂[Real.cos t, Real.sin t, 0]
abbrev R3 : Type := EuclideanSpace ℝ (Fin 3)
WantedExt/Topology/ConwayKnotShared.lean:74
Uses 1 · Used by 1
DefinitionUnknotted knot#✓fully proved
A knot \(K\) is unknotted when there is a knot \(J\) whose parametrization is the standard circle \(t \mapsto (\cos t, \sin t, 0)\) such that \(K\) is ambient-isotopic to \(J\) as an oriented knot.
def IsUnknotted (K : Knot) : Prop :=
∃ J : Knot, J.curve = standardCircle ∧ K.Isotopic J
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
noncomputable def standardCircle (t : ℝ) : R3 :=
!₂[Real.cos t, Real.sin t, 0]
WantedExt/Topology/QuadrisecantWanted.lean:61
Uses 4 · Used by 1
DefinitionQuadrisecant of a knot#✓fully proved
A knot \(K\) with parametrization \(\gamma \colon \mathbb{R} \to \mathbb{R}^3\) has a quadrisecant when there are pairwise distinct reals \(t_0, t_1, t_2, t_3 \in [0, 2\pi)\), a point \(p \in \mathbb{R}^3\), a nonzero vector \(v \in \mathbb{R}^3\) and reals \(a_0, a_1, a_2, a_3\) such that \(\gamma(t_i) = p + a_i v\) for each \(i\), that is, the four points \(\gamma(t_i)\) lie on one line.
def HasQuadrisecant (K : Knot) : Prop :=
∃ t0 t1 t2 t3 : ℝ, ∃ p v : R3, ∃ a0 a1 a2 a3 : ℝ,
t0 ∈ Set.Ico (0 : ℝ) period ∧ t1 ∈ Set.Ico (0 : ℝ) period ∧
t2 ∈ Set.Ico (0 : ℝ) period ∧ t3 ∈ Set.Ico (0 : ℝ) period ∧
[t0, t1, t2, t3].Nodup ∧ v ≠ 0 ∧
K.curve t0 = p + a0 • v ∧ K.curve t1 = p + a1 • v ∧
K.curve t2 = p + a2 • v ∧ K.curve t3 = p + a3 • v
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
abbrev R3 : Type := EuclideanSpace ℝ (Fin 3)
WantedExt/Topology/ConwayKnotShared.lean:74
noncomputable def period : ℝ := 2 * Real.pi
WantedExt/Topology/QuadrisecantWanted.lean:58
Uses 3 · Used by 1
TheoremQuadrisecant theorem (Pannwitz–Kuperberg)#●ready to prove
Every smooth knot \(K\) in \(\mathbb{R}^3\) that is not unknotted has a quadrisecant.
public theorem_wanted smooth_knot_has_quadrisecant
(K : Knot) (_hnontrivial : ¬ IsUnknotted K) :
HasQuadrisecant 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
def IsUnknotted (K : Knot) : Prop :=
∃ J : Knot, J.curve = standardCircle ∧ K.Isotopic J
WantedExt/Topology/QuadrisecantWanted.lean:66
def HasQuadrisecant (K : Knot) : Prop :=
∃ t0 t1 t2 t3 : ℝ, ∃ p v : R3, ∃ a0 a1 a2 a3 : ℝ,
t0 ∈ Set.Ico (0 : ℝ) period ∧ t1 ∈ Set.Ico (0 : ℝ) period ∧
t2 ∈ Set.Ico (0 : ℝ) period ∧ t3 ∈ Set.Ico (0 : ℝ) period ∧
[t0, t1, t2, t3].Nodup ∧ v ≠ 0 ∧
K.curve t0 = p + a0 • v ∧ K.curve t1 = p + a1 • v ∧
K.curve t2 = p + a2 • v ∧ K.curve t3 = p + a3 • v
WantedExt/Topology/QuadrisecantWanted.lean:71
Sources
- E. Pannwitz (1933); G. Kuperberg, Quadrisecants of knots and links, J. Knot Theory Ramif. 3 (1994). Knill, §161. Problem
smooth_knot_has_quadrisecantof the lean-eval benchmark.
Uses 3
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.