Gluing plugs (Béguin–Bonatti–Yu, Prop. 1.1): the maximal invariant set of the glued field is contained in Λ_X ∪ Λ_Y ∪ (connecting orbits)
ProvedAnosovPlugs.plugGluing_maxInvSet_subsetLet and be plugs: , are nonsingular C¹ vector fields on the compact 3-manifolds with boundary , , transverse to the boundary. Let be a union of connected components of the exit boundary , let be a union of connected components of the entrance boundary , and let be a C¹ diffeomorphism. 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 , . Write , , for the maximal invariant sets (points whose orbit is defined for all times), for the exit lamination of and for the entrance lamination of . Here is the stable set: the points of whose forward orbit is defined for all positive times; is the unstable set: the points of whose backward orbit is defined for all negative times. The connecting set is the -orbit of : the set of points that lie on a complete integral curve of with for some with . Then every point of the maximal invariant set of lies in one of the three pieces:
This is the inclusion in the sentence " is the union of , and the -orbit of " of the proof of Proposition 1.1.
Formalization Note Only the plug hypotheses on and are assumed (not hyperbolicity). is not assumed to be C¹; it is controlled only through the embeddings. The connecting set is phrased by the existence of a complete integral curve of through the gluing point, not through a flow map, because uniqueness of integral curves of is not among the hypotheses. The hypotheses on , and are those of Proposition 1.1. The maximal invariant set, the stable set and the unstable set are defined by integral curves in the sense of Mathlib's IsMIntegralCurve / IsMIntegralCurveOn (one-sided derivatives at interval endpoints).
import Mathlib import Definitions.Def_AnosovPlugs_Gluing open scoped Manifold ContDiff Topology open Set
namespace AnosovPlugs
theorem plugGluing_maxInvSet_subset
{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 : IsPlug X) (hY : IsPlug Y)
(Tout : Set U) (Tin : Set V) (hTout : IsUnionOfComponents Tout (outBoundary X))
(hTin : IsUnionOfComponents Tin (inBoundary Y)) (φ : U → V)
(hφ : IsBoundaryDiffeo φ Tout Tin)
(Z : (w : W) → TangentSpace I3 w) (iU : U → W) (iV : V → W)
(hglue : IsPlugGluing X Y Tout φ Z iU iV) :
maxInvSet Z ⊆ iU '' maxInvSet X ∪ iV '' maxInvSet Y ∪
{w | ∃ x ∈ exitLamination X ∩ Tout, φ x ∈ entranceLamination Y ∧
∃ γ : ℝ → W, γ 0 = iU x ∧ IsMIntegralCurve γ Z ∧ w ∈ range γ} := by sorry
end AnosovPlugs