Documentation

TauCeti.AlgebraicGeometry.Curves.NodalGluing.PartitionedAuxiliaryMarks

Marked nodal curves with partitioned auxiliary marks #

Let the auxiliary marks of a marked nodal curve (labelled by R, see TauCeti.AlgebraicGeometry.Curves.NodalGluing.AuxiliaryMarks) be coloured by a function κ : R → Cl, so that the auxiliary labels are partitioned into the colour classes Λ_c = κ ⁻¹' {c}, empty classes being allowed. An arrow (π, f) with unordered auxiliary marks preserves the colours when κ (π j) = κ j for every auxiliary label j: its permutation lies in ∏_c S(Λ_c), and it may permute the marks within each colour class but never moves a mark to another class. For instance, two distinguished unordered auxiliary sets R₁ and R₂ use the permutations S(R₁) × S(R₂) of R₁ ⊕ R₂, not all of S(R₁ ⊕ R₂), which could interchange their roles (AuxiliaryIso.preservesColors_isLeft_iff).

The colour-preserving arrows form a wide subgroupoid of the groupoid of curves with unordered auxiliary marks: it has all the objects but in general not all the arrows between them. Its inclusion is faithful on actual arrows, as for every subgroupoid (Subgroupoid.hom.faithful). The automorphisms preserving the colours form a subgroup of the automorphism group, between the ordered automorphisms and all of it, and it acts on each colour class.

A single colour class recovers the groupoid with unordered auxiliary marks, and singleton colour classes recover the ordered isomorphisms, those fixing every mark. Relabelling the colours bijectively does not change the subgroupoid, and merging colour classes only enlarges it.

Main definitions #

Main results #

References #

Colour-preserving arrows #

def TauCeti.NodalGluing.AuxiliaryIso.PreservesColors {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {ι' : Type u_7} {Flag' : Type u_8} {X' : ι' → Type u_9} [(i : ι') → TopologicalSpace (X' i)] [(i : ι') → ChartedSpace H (X' i)] {d : FlagPairData ι Flag X} {d' : FlagPairData ι' Flag' X'} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {m' : Marking d' (N ⊕ R)} (κ : R → Cl) (e : AuxiliaryIso I n m m') :

A colour-preserving arrow. For a colouring κ : R → Cl of the auxiliary labels, the arrow e preserves the colours when its permutation carries each auxiliary label to a label of the same colour, that is, when it permutes each colour class κ ⁻¹' {c}.

Instances For
    theorem TauCeti.NodalGluing.AuxiliaryIso.preservesColors_iff {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {ι' : Type u_7} {Flag' : Type u_8} {X' : ι' → Type u_9} [(i : ι') → TopologicalSpace (X' i)] [(i : ι') → ChartedSpace H (X' i)] {d : FlagPairData ι Flag X} {d' : FlagPairData ι' Flag' X'} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {m' : Marking d' (N ⊕ R)} {κ : R → Cl} (e : AuxiliaryIso I n m m') :
    PreservesColors κ e ↔ ∀ (j : R), κ (e.perm j) = κ j
    theorem TauCeti.NodalGluing.AuxiliaryIso.preservesColors_iff_comp_eq {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {ι' : Type u_7} {Flag' : Type u_8} {X' : ι' → Type u_9} [(i : ι') → TopologicalSpace (X' i)] [(i : ι') → ChartedSpace H (X' i)] {d : FlagPairData ι Flag X} {d' : FlagPairData ι' Flag' X'} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {m' : Marking d' (N ⊕ R)} {κ : R → Cl} (e : AuxiliaryIso I n m m') :
    PreservesColors κ e ↔ κ ∘ ⇑e.perm = κ

    An arrow preserves the colours exactly when the colouring is invariant under its permutation, κ ∘ π = κ.

    theorem TauCeti.NodalGluing.AuxiliaryIso.preservesColors_iff_mem_fiberSubgroup {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {ι' : Type u_7} {Flag' : Type u_8} {X' : ι' → Type u_9} [(i : ι') → TopologicalSpace (X' i)] [(i : ι') → ChartedSpace H (X' i)] {d : FlagPairData ι Flag X} {d' : FlagPairData ι' Flag' X'} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {m' : Marking d' (N ⊕ R)} {κ : R → Cl} (e : AuxiliaryIso I n m m') :

    An arrow preserves the colours exactly when its permutation preserves the fibers of κ, that is, lies in TauCeti.fiberSubgroup κ.

    @[simp]
    theorem TauCeti.NodalGluing.AuxiliaryIso.preservesColors_refl {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] (I : ModelWithCorners 𝕜 E H) (n : WithTop ℕ∞) {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {d : FlagPairData ι Flag X} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} (m : Marking d (N ⊕ R)) (κ : R → Cl) :

    The identity arrow preserves the colours.

    theorem TauCeti.NodalGluing.AuxiliaryIso.PreservesColors.symm {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {ι' : Type u_7} {Flag' : Type u_8} {X' : ι' → Type u_9} [(i : ι') → TopologicalSpace (X' i)] [(i : ι') → ChartedSpace H (X' i)] {d : FlagPairData ι Flag X} {d' : FlagPairData ι' Flag' X'} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {m' : Marking d' (N ⊕ R)} {κ : R → Cl} {e : AuxiliaryIso I n m m'} (h : PreservesColors κ e) :

    The inverse of a colour-preserving arrow preserves the colours.

    @[simp]
    theorem TauCeti.NodalGluing.AuxiliaryIso.preservesColors_symm_iff {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {ι' : Type u_7} {Flag' : Type u_8} {X' : ι' → Type u_9} [(i : ι') → TopologicalSpace (X' i)] [(i : ι') → ChartedSpace H (X' i)] {d : FlagPairData ι Flag X} {d' : FlagPairData ι' Flag' X'} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {m' : Marking d' (N ⊕ R)} {κ : R → Cl} {e : AuxiliaryIso I n m m'} :

    The inverse of an arrow preserves the colours exactly when the arrow does.

    theorem TauCeti.NodalGluing.AuxiliaryIso.PreservesColors.trans {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {ι' : Type u_7} {Flag' : Type u_8} {X' : ι' → Type u_9} [(i : ι') → TopologicalSpace (X' i)] [(i : ι') → ChartedSpace H (X' i)] {ι'' : Type u_10} {Flag'' : Type u_11} {X'' : ι'' → Type u_12} [(i : ι'') → TopologicalSpace (X'' i)] [(i : ι'') → ChartedSpace H (X'' i)] {d : FlagPairData ι Flag X} {d' : FlagPairData ι' Flag' X'} {d'' : FlagPairData ι'' Flag'' X''} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {m' : Marking d' (N ⊕ R)} {m'' : Marking d'' (N ⊕ R)} {κ : R → Cl} {e : AuxiliaryIso I n m m'} {e' : AuxiliaryIso I n m' m''} (h : PreservesColors κ e) (h' : PreservesColors κ e') :

    A composite of colour-preserving arrows preserves the colours.

    theorem TauCeti.NodalGluing.AuxiliaryIso.PreservesColors.comp {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {ι' : Type u_7} {Flag' : Type u_8} {X' : ι' → Type u_9} [(i : ι') → TopologicalSpace (X' i)] [(i : ι') → ChartedSpace H (X' i)] {d : FlagPairData ι Flag X} {d' : FlagPairData ι' Flag' X'} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {Cl' : Type u_16} {m : Marking d (N ⊕ R)} {m' : Marking d' (N ⊕ R)} {κ : R → Cl} {e : AuxiliaryIso I n m m'} (h : PreservesColors κ e) (σ : Cl → Cl') :

    Merging colour classes. An arrow preserving a colouring κ preserves every coarser colouring σ ∘ κ.

    theorem TauCeti.NodalGluing.AuxiliaryIso.preservesColors_comp_iff {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {ι' : Type u_7} {Flag' : Type u_8} {X' : ι' → Type u_9} [(i : ι') → TopologicalSpace (X' i)] [(i : ι') → ChartedSpace H (X' i)] {d : FlagPairData ι Flag X} {d' : FlagPairData ι' Flag' X'} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {Cl' : Type u_16} {m : Marking d (N ⊕ R)} {m' : Marking d' (N ⊕ R)} {κ : R → Cl} {σ : Cl → Cl'} (hσ : Function.Injective σ) (e : AuxiliaryIso I n m m') :

    Relabelling the colours. For an injective relabelling σ of the colours, an arrow preserves σ ∘ κ exactly when it preserves κ.

    theorem TauCeti.NodalGluing.AuxiliaryIso.preservesColors_of_subsingleton {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {ι' : Type u_7} {Flag' : Type u_8} {X' : ι' → Type u_9} [(i : ι') → TopologicalSpace (X' i)] [(i : ι') → ChartedSpace H (X' i)] {d : FlagPairData ι Flag X} {d' : FlagPairData ι' Flag' X'} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {m' : Marking d' (N ⊕ R)} {κ : R → Cl} [Subsingleton Cl] (e : AuxiliaryIso I n m m') :

    One colour class. If there is at most one colour, every arrow preserves the colours.

    theorem TauCeti.NodalGluing.AuxiliaryIso.preservesColors_iff_perm_eq_one {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {ι' : Type u_7} {Flag' : Type u_8} {X' : ι' → Type u_9} [(i : ι') → TopologicalSpace (X' i)] [(i : ι') → ChartedSpace H (X' i)] {d : FlagPairData ι Flag X} {d' : FlagPairData ι' Flag' X'} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {m' : Marking d' (N ⊕ R)} {κ : R → Cl} (hκ : Function.Injective κ) (e : AuxiliaryIso I n m m') :

    Singleton colour classes. For an injective colouring, an arrow preserves the colours exactly when its permutation of the auxiliary labels is trivial.

    theorem TauCeti.NodalGluing.AuxiliaryIso.PreservesColors.perm_image_preimage {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {ι' : Type u_7} {Flag' : Type u_8} {X' : ι' → Type u_9} [(i : ι') → TopologicalSpace (X' i)] [(i : ι') → ChartedSpace H (X' i)] {d : FlagPairData ι Flag X} {d' : FlagPairData ι' Flag' X'} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {m' : Marking d' (N ⊕ R)} {κ : R → Cl} {e : AuxiliaryIso I n m m'} (h : PreservesColors κ e) (T : Set Cl) :
    ⇑e.perm '' κ ⁻¹' T = κ ⁻¹' T

    A colour-preserving arrow maps each union of colour classes onto itself.

    theorem TauCeti.NodalGluing.AuxiliaryIso.PreservesColors.image_image_point_inr_preimage {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {ι' : Type u_7} {Flag' : Type u_8} {X' : ι' → Type u_9} [(i : ι') → TopologicalSpace (X' i)] [(i : ι') → ChartedSpace H (X' i)] {d : FlagPairData ι Flag X} {d' : FlagPairData ι' Flag' X'} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {m' : Marking d' (N ⊕ R)} {κ : R → Cl} {e : AuxiliaryIso I n m m'} (h : PreservesColors κ e) (T : Set Cl) :
    ⇑e '' (fun (j : R) => m.point (Sum.inr j)) '' κ ⁻¹' T = (fun (j : R) => m'.point (Sum.inr j)) '' κ ⁻¹' T

    Colour classes are transported. A colour-preserving arrow carries the auxiliary marks of any union of colour classes exactly onto the auxiliary marks of the same colours.

    theorem TauCeti.NodalGluing.AuxiliaryIso.preservesColors_isLeft_iff {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {ι' : Type u_7} {Flag' : Type u_8} {X' : ι' → Type u_9} [(i : ι') → TopologicalSpace (X' i)] [(i : ι') → ChartedSpace H (X' i)] {d : FlagPairData ι Flag X} {d' : FlagPairData ι' Flag' X'} {N : Type u_13} {R₁ : Type u_17} {R₂ : Type u_18} {m : Marking d (N ⊕ R₁ ⊕ R₂)} {m' : Marking d' (N ⊕ R₁ ⊕ R₂)} (e : AuxiliaryIso I n m m') :

    Two colour classes. For auxiliary labels R₁ ⊕ R₂ coloured by their summand, an arrow preserves the colours exactly when its permutation lies in S(R₁) × S(R₂), embedded in S(R₁ ⊕ R₂) by Equiv.Perm.sumCongrHom.

    The partitioned groupoid #

    The groupoid of curves with partitioned auxiliary marks. For a colouring κ : R → Cl of the auxiliary labels, this is the subgroupoid of the groupoid of curves with unordered auxiliary marks consisting of the colour-preserving arrows (π, f), those whose permutation π lies in ∏_c S(κ ⁻¹' {c}). It is wide (isWide_partitionedAuxiliaryIsomorphismGroupoid): it has the same objects, but in general fewer arrows between them.

    Instances For
      @[simp]
      theorem TauCeti.NodalGluing.AuxiliaryMarkedCurve.mem_partitionedAuxiliaryIsomorphismGroupoid_iff {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {κ : R → Cl} {C C' : AuxiliaryMarkedCurve I n N R} (e : C ⟶ C') :

      An arrow lies in the partitioned groupoid exactly when it preserves the colours.

      The partitioned groupoid is a wide subgroupoid: it contains the identity of every curve.

      theorem TauCeti.NodalGluing.AuxiliaryMarkedCurve.partitionedAuxiliaryIsomorphismGroupoid_le_comp {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {Cl' : Type u_16} (κ : R → Cl) (σ : Cl → Cl') :

      Merging colour classes enlarges the partitioned groupoid.

      theorem TauCeti.NodalGluing.AuxiliaryMarkedCurve.partitionedAuxiliaryIsomorphismGroupoid_comp_of_injective {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {Cl' : Type u_16} {κ : R → Cl} {σ : Cl → Cl'} (hσ : Function.Injective σ) :

      Relabelling the colours injectively does not change the partitioned groupoid.

      One colour class recovers the groupoid of curves with unordered auxiliary marks: every arrow preserves the colours.

      theorem TauCeti.NodalGluing.AuxiliaryMarkedCurve.mem_partitionedAuxiliaryIsomorphismGroupoid_iff_perm_eq_one {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {κ : R → Cl} {C C' : AuxiliaryMarkedCurve I n N R} (hκ : Function.Injective κ) (e : C ⟶ C') :

      Singleton colour classes recover the ordered isomorphisms: for an injective colouring, the arrows of the partitioned groupoid are those with trivial permutation, which fix every distinguished and every auxiliary label.

      Colour-preserving automorphisms #

      noncomputable def TauCeti.NodalGluing.AuxiliaryAut.partitioned {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] (I : ModelWithCorners 𝕜 E H) (n : WithTop ℕ∞) {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {d : FlagPairData ι Flag X} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} (m : Marking d (N ⊕ R)) (κ : R → Cl) :

      The colour-preserving automorphisms of a curve with auxiliary marks coloured by κ : R → Cl: the automorphisms whose permutation of the auxiliary labels preserves every colour class, the preimage of TauCeti.fiberSubgroup κ under the permutation action auxiliaryPerm.

      Instances For
        @[simp]
        theorem TauCeti.NodalGluing.AuxiliaryAut.mem_partitioned_iff {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {d : FlagPairData ι Flag X} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {κ : R → Cl} (e : AuxiliaryAut I n m) :

        An automorphism is colour-preserving exactly when its permutation preserves the colours.

        theorem TauCeti.NodalGluing.AuxiliaryAut.ordered_le_partitioned {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {d : FlagPairData ι Flag X} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} (κ : R → Cl) :
        ordered I n m ≤ partitioned I n m κ

        Every ordered automorphism preserves the colours.

        theorem TauCeti.NodalGluing.AuxiliaryAut.partitioned_le_comp {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {d : FlagPairData ι Flag X} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {Cl' : Type u_16} {m : Marking d (N ⊕ R)} (κ : R → Cl) (σ : Cl → Cl') :
        partitioned I n m κ ≤ partitioned I n m (σ ∘ κ)

        Merging colour classes enlarges the colour-preserving automorphisms.

        theorem TauCeti.NodalGluing.AuxiliaryAut.partitioned_comp_of_injective {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {d : FlagPairData ι Flag X} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {Cl' : Type u_16} {m : Marking d (N ⊕ R)} {κ : R → Cl} {σ : Cl → Cl'} (hσ : Function.Injective σ) :
        partitioned I n m (σ ∘ κ) = partitioned I n m κ

        Relabelling the colours injectively does not change the colour-preserving automorphisms.

        theorem TauCeti.NodalGluing.AuxiliaryAut.partitioned_eq_top {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {d : FlagPairData ι Flag X} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {κ : R → Cl} [Subsingleton Cl] :
        partitioned I n m κ = ⊤

        One colour class: every automorphism preserves the colours.

        theorem TauCeti.NodalGluing.AuxiliaryAut.partitioned_eq_ordered {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {d : FlagPairData ι Flag X} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {κ : R → Cl} (hκ : Function.Injective κ) :
        partitioned I n m κ = ordered I n m

        Singleton colour classes: for an injective colouring, the colour-preserving automorphisms are the ordered automorphisms.

        noncomputable def TauCeti.NodalGluing.AuxiliaryAut.blockPerm {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {d : FlagPairData ι Flag X} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {κ : R → Cl} :
        ↥(partitioned I n m κ) →* (c : Cl) → Equiv.Perm { j : R // κ j = c }

        The action on the colour classes. A colour-preserving automorphism permutes each colour class κ ⁻¹' {c}; this is its image in ∏_c S(κ ⁻¹' {c}), obtained from its permutation by the restriction isomorphism TauCeti.fiberSubgroupMulEquivPiPerm κ.

        Instances For
          @[simp]
          theorem TauCeti.NodalGluing.AuxiliaryAut.coe_blockPerm_apply {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {d : FlagPairData ι Flag X} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {κ : R → Cl} (e : ↥(partitioned I n m κ)) (c : Cl) (j : { j : R // κ j = c }) :
          ↑((blockPerm e c) j) = (↑e).perm ↑j

          The action of a colour-preserving automorphism on a colour class is its permutation.

          theorem TauCeti.NodalGluing.AuxiliaryAut.ker_blockPerm {𝕜 : Type u_1} [NontriviallyNormedField 𝕜] {E : Type u_2} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {H : Type u_3} [TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {n : WithTop ℕ∞} {ι : Type u_4} {Flag : Type u_5} {X : ι → Type u_6} [(i : ι) → TopologicalSpace (X i)] [(i : ι) → ChartedSpace H (X i)] {d : FlagPairData ι Flag X} {N : Type u_13} {R : Type u_14} {Cl : Type u_15} {m : Marking d (N ⊕ R)} {κ : R → Cl} :

          A colour-preserving automorphism acts trivially on every colour class exactly when it is ordered: the kernel of the action on the colour classes is the subgroup of ordered automorphisms.