|
| 1 | +/- |
| 2 | +Copyright (c) 2025 Michael Rothgang. All rights reserved. |
| 3 | +Released under Apache 2.0 license as described in the file LICENSE. |
| 4 | +Authors: Patrick Massot, Michael Rothgang |
| 5 | +-/ |
| 6 | +import Mathlib.Geometry.Manifold.VectorBundle.CovariantDerivative |
| 7 | +import Mathlib.Geometry.Manifold.VectorBundle.Riemannian |
| 8 | + |
| 9 | +/-! |
| 10 | +# The Levi-Civita connection |
| 11 | +
|
| 12 | +This file will define the Levi-Civita connection on any Riemannian manifold. |
| 13 | +Details to be written! |
| 14 | +
|
| 15 | +-/ |
| 16 | + |
| 17 | +open Bundle Filter Function Topology |
| 18 | + |
| 19 | +open scoped Bundle Manifold ContDiff |
| 20 | + |
| 21 | +-- Let M be a C^k real manifold modeled on (E, H), endowed with a Riemannian metric. |
| 22 | +variable {n : WithTop ℕ∞} |
| 23 | + {E : Type*} [NormedAddCommGroup E] [NormedSpace ℝ E] |
| 24 | + {H : Type*} [TopologicalSpace H] (I : ModelWithCorners ℝ E H) |
| 25 | + {M : Type*} [EMetricSpace M] [ChartedSpace H M] [IsManifold I ∞ M] |
| 26 | + [RiemannianBundle (fun (x : M) ↦ TangentSpace I x)] |
| 27 | + [IsContMDiffRiemannianBundle I ∞ E (fun (x : M) ↦ TangentSpace I x)] |
| 28 | + -- comes in a future PR by sgouezel; don't need this part yet |
| 29 | + -- [IsRiemannianManifold I M] |
| 30 | + |
| 31 | +variable {E' : Type*} [NormedAddCommGroup E'] [NormedSpace ℝ E'] |
| 32 | + |
| 33 | +local notation "⟪" x ", " y "⟫" => inner ℝ x y |
| 34 | + |
| 35 | +/-! Compatible connections: a connection on TM is compatible with the metric on M iff |
| 36 | +`∇ X ⟨Y, Z⟩ = ⟨∇ X Y, Z⟩ + ⟨Y, ∇ X Z⟩` holds for all vector fields X, Y and Z on `M`. |
| 37 | +The left hand side is the differential of the function ⟨Y, Z⟩ along the vector field X: |
| 38 | +at each point p, let γ(t) be a curve representing the tangent vector X p, |
| 39 | +then the LHS is the initial derivative of the function t ↦ ⟨Y(γ(p)), Z(γ p)⟩ at 0. -/ |
| 40 | + |
| 41 | +variable {X Y Z W : Π x : M, TangentSpace I x} |
| 42 | + |
| 43 | +-- /-- The scalar product of two vector fields -/ |
| 44 | +-- noncomputable def product (X Y : Π x : M, TangentSpace I x) : M → ℝ := fun x ↦ ⟪X x, Y x⟫ |
| 45 | +-- smoothness results shown in Riemannian.lean: will omit |
| 46 | +variable [IsManifold I ∞ M] |
| 47 | +--variable (cov : CovariantDerivative I E (V := TangentBundle I M)) |
| 48 | +-- TODO: state "cov is a connection on TM" in a way that type-checks... |
| 49 | +-- (cov : CovariantDerivative I E (V := fun x ↦ TangentSpace I x)) does not... |
| 50 | + |
| 51 | +include I in |
| 52 | +variable (Y Z) in |
| 53 | +noncomputable def lhs_aux : M → ℝ := fun x ↦ ⟪Y x, Z x⟫ |
| 54 | + |
| 55 | +variable (X Y Z) in |
| 56 | +noncomputable def lhs : M → ℝ := fun x ↦ mfderiv I 𝓘(ℝ) (lhs_aux I Y Z) x (X x) |
| 57 | + |
| 58 | +-- variable (X Y Z) in |
| 59 | +-- noncomputable def rhs : M → ℝ := ⟪cov X Y, Z⟫ + ⟪Y, cov X Z⟫ |
| 60 | + |
| 61 | +/- |
| 62 | +
|
| 63 | +def CovariantDerivative.IsCompatible (cov) (g) : lhs = rhs on mdiff. functions |
| 64 | +
|
| 65 | +new definition |
| 66 | +IsLeviCivitaConnection: IsCompatible \and IsTorsionFree |
| 67 | +
|
| 68 | +uniqueness theorem: any two Levi-Civita connections agree on all mdiff vector fields |
| 69 | +(probably not everywhere, as addition rules don't apply to them?) |
| 70 | +
|
| 71 | +-----> helper lemmas |
| 72 | +on a metric vector bundle: orthonormal frame (continuous setting at first), |
| 73 | +prove these are continuous |
| 74 | +(and smooth if the metric is smooth) |
| 75 | +
|
| 76 | +lemma: <X, Y> = <X', Y> for all Y implies X and X' are equal |
| 77 | +(-> use for uniqueness of LC connection) |
| 78 | +
|
| 79 | +compute: a symmetric connection satisfies xxx |
| 80 | + a LC connection satisfies ... |
| 81 | + deduce the final equation characterising it |
| 82 | +
|
| 83 | +corollary: uniqueness |
| 84 | +
|
| 85 | +-- A choice of Levi-Civita connection on TM: this is unique up to the value on non-differentiable vector fields. |
| 86 | +-- If you know the Levi-Civita connection already, you can use IsLeviCivitaConnection instead. |
| 87 | +def LeviCivitaConnection := sorry |
| 88 | +
|
| 89 | +this is the existence part, I presume |
| 90 | +
|
| 91 | +lemma : IsLeviCivitaConnection (LeviCivitaConnection) := sorry |
| 92 | +
|
| 93 | +-/ |
0 commit comments