Gluing hyperbolic plugs (Béguin–Bonatti–Yu, Prop. 1.1): the images of Λ_X and Λ_Y are hyperbolic sets of the glued field
ProvedAnosovPlugs.plugGluing_pieces_hyperbolicLet and be hyperbolic plugs: plugs whose maximal invariant sets , are hyperbolic sets with one-dimensional strong stable and strong unstable bundles. Let be a union of connected components of , let be a union of connected components of , and let . Let be a gluing of and along : C¹ embeddings and with injective derivatives cover the compact 3-manifold , identify exactly the points with , and satisfy , . Then the images of the two maximal invariant sets are hyperbolic sets of :
This is the part of the proof of Proposition 1.1 where the hyperbolic structures of and are regarded as hyperbolic structures for on .
Formalization Note A hyperbolic set is defined as in the mission (IsHyperbolicSet): a continuous Riemannian metric, line fields , with on the set, invariance under the derivatives of the time- maps of the flow, and exponential estimates with constants , . is not assumed to be C¹. The hypotheses on and are those of Proposition 1.1; the map enters only through the gluing relation.
import Mathlib import Definitions.Def_AnosovPlugs_Gluing open scoped Manifold ContDiff Topology open Set
namespace AnosovPlugs
theorem plugGluing_pieces_hyperbolic
{U : Type} [TopologicalSpace U] [ChartedSpace (EuclideanHalfSpace 3) U]
[IsManifold I3 ∞ U] [T2Space U] [CompactSpace U]
{V : Type} [TopologicalSpace V] [ChartedSpace (EuclideanHalfSpace 3) V]
[IsManifold I3 ∞ V] [T2Space V] [CompactSpace V]
{W : Type} [TopologicalSpace W] [ChartedSpace (EuclideanHalfSpace 3) W]
[IsManifold I3 ∞ W] [T2Space W] [CompactSpace W]
(X : (x : U) → TangentSpace I3 x) (Y : (y : V) → TangentSpace I3 y)
(hX : IsHyperbolicPlug X) (hY : IsHyperbolicPlug Y)
(Tout : Set U) (Tin : Set V) (hTout : IsUnionOfComponents Tout (outBoundary X))
(hTin : IsUnionOfComponents Tin (inBoundary Y)) (φ : U → V)
(Z : (w : W) → TangentSpace I3 w) (iU : U → W) (iV : V → W)
(hglue : IsPlugGluing X Y Tout φ Z iU iV) :
IsHyperbolicSet Z (iU '' maxInvSet X) ∧ IsHyperbolicSet Z (iV '' maxInvSet Y) := by sorry
end AnosovPlugs