feat(Archive): dodecahedron, Petersen graph, 3-cube, and antipodal quotients

Archive.lean

@@ -66,6 +66,7 @@ import Archive.MinimalSheffer
 import Archive.MiuLanguage.Basic
 import Archive.MiuLanguage.DecisionNec
 import Archive.MiuLanguage.DecisionSuf
+import Archive.NamedGraphs
 import Archive.OxfordInvariants.Summer2021.Week3P1
 import Archive.Sensitivity
 import Archive.Wiedijk100Theorems.AbelRuffini

Mathlib/Combinatorics/SimpleGraph/Action.lean

@@ -0,0 +1,129 @@
+/-
+Copyright (c) 2026 Robin Langer. All rights reserved.
+Released under Apache 2.0 license as described in the file LICENSE.
+Authors: Robin Langer
+-/
+module
+
+public import Mathlib.Combinatorics.SimpleGraph.Maps
+public import Mathlib.GroupTheory.GroupAction.Basic
+
+/-!
+# Group actions on simple graphs
+
+Given a group `G` acting on a type `V` via `MulAction G V`, and a simple graph `Γ : SimpleGraph V`,
+we say the action is a *graph action* if it preserves adjacency: `Γ.Adj u v → Γ.Adj (g • u) (g • v)`
+for all `g : G`.
+
+## Main definitions
+
+* `GraphAction G Γ` — the action of `G` on `V` preserves the adjacency relation of `Γ`
+* `GraphAction.adj_smul_iff` — for groups, adjacency is an iff (not just an implication)
+* `GraphAction.toIso` — each `g : G` induces a graph isomorphism `Γ ≃g Γ`
+* `IsVertexTransitive G Γ` — the action is a graph action and is transitive
+* `IsArcTransitive G Γ` — the action is transitive on ordered adjacent pairs
+* `IsLocallyTransitive G Γ v` — the stabilizer of `v` acts transitively on its neighbors
+
+## Main results
+
+* `isArcTransitive_of_vertexTransitive_locallyTransitive` — vertex-transitive + locally
+  transitive implies arc-transitive
+-/
+
+@[expose] public section
+
+variable {G V : Type*}
+
+/-- A group action on `V` is a *graph action* on `Γ : SimpleGraph V` if it preserves adjacency. -/
+class GraphAction (G : Type*) (V : Type*) [Group G] [MulAction G V]
+    (Γ : SimpleGraph V) : Prop where
+  /-- The action preserves adjacency. -/
+  adj_smul : ∀ (g : G) (u v : V), Γ.Adj u v → Γ.Adj (g • u) (g • v)
+
+namespace GraphAction
+
+variable [Group G] [MulAction G V] {Γ : SimpleGraph V} [GraphAction G V Γ]
+
+/-- For group actions, adjacency is preserved in both directions:
+`Γ.Adj (g • u) (g • v) ↔ Γ.Adj u v`. -/
+theorem adj_smul_iff (g : G) (u v : V) : Γ.Adj (g • u) (g • v) ↔ Γ.Adj u v := by
+  constructor
+  · intro h
+    have h' := adj_smul g⁻¹ (g • u) (g • v) h
+    simp only [inv_smul_smul] at h'
+    exact h'
+  · exact adj_smul g u v
+
+/-- Each group element `g` induces a graph isomorphism `Γ ≃g Γ`. -/
+noncomputable def toIso (g : G) : Γ ≃g Γ where
+  toEquiv := MulAction.toPerm g
+  map_rel_iff' := adj_smul_iff g _ _
+
+@[simp]
+theorem toIso_apply (g : G) (v : V) : (toIso g : Γ ≃g Γ) v = g • v := rfl
+
+@[simp]
+theorem toIso_symm (g : G) : (toIso g : Γ ≃g Γ).symm = toIso g⁻¹ := by
+  ext v
+  simp [toIso]
+
+theorem toIso_mul (g h : G) :
+    (toIso (g * h) : Γ ≃g Γ) = (toIso h : Γ ≃g Γ).trans (toIso g) := by
+  ext v
+  simp [toIso, mul_smul]
+
+end GraphAction
+
+/-- A graph `Γ` is *vertex-transitive* under the action of `G` if `G` preserves adjacency
+and acts transitively on the vertices. -/
+class IsVertexTransitive (G : Type*) (V : Type*) [Group G] [MulAction G V]
+    (Γ : SimpleGraph V) : Prop extends GraphAction G V Γ where
+  /-- The action is transitive on vertices. -/
+  pretransitive : MulAction.IsPretransitive G V
+
+attribute [instance] IsVertexTransitive.pretransitive
+
+/-- A graph `Γ` is *arc-transitive* under the action of `G` if for any two arcs
+`(u₁, v₁)` and `(u₂, v₂)`, there exists `g ∈ G` sending `u₁ ↦ u₂` and `v₁ ↦ v₂`. -/
+class IsArcTransitive (G : Type*) (V : Type*) [Group G] [MulAction G V]
+    (Γ : SimpleGraph V) : Prop extends GraphAction G V Γ where
+  /-- The action is transitive on arcs (ordered adjacent pairs). -/
+  arc_transitive : ∀ u₁ v₁ u₂ v₂ : V, Γ.Adj u₁ v₁ → Γ.Adj u₂ v₂ →
+    ∃ g : G, g • u₁ = u₂ ∧ g • v₁ = v₂
+
+namespace IsArcTransitive
+
+variable [Group G] [MulAction G V] {Γ : SimpleGraph V} [IsArcTransitive G V Γ]
+
+/-- An arc-transitive graph with no isolated vertices is vertex-transitive. -/
+theorem isVertexTransitive (hne : ∀ v : V, ∃ w : V, Γ.Adj v w) :
+    IsVertexTransitive G V Γ where
+  pretransitive := ⟨by
+    intro x y
+    obtain ⟨x', hx'⟩ := hne x
+    obtain ⟨y', hy'⟩ := hne y
+    obtain ⟨g, hg, _⟩ := @arc_transitive G V _ _ Γ _ x x' y y' hx' hy'
+    exact ⟨g, hg⟩⟩
+
+end IsArcTransitive
+
+/-- A graph is *locally transitive* at `v` if the stabilizer of `v` acts transitively
+on the neighbors of `v`. -/
+def IsLocallyTransitive (G : Type*) (V : Type*) [Group G] [MulAction G V]
+    (Γ : SimpleGraph V) (v : V) : Prop :=
+  ∀ w₁ w₂ : V, Γ.Adj v w₁ → Γ.Adj v w₂ →
+    ∃ g : G, g • v = v ∧ g • w₁ = w₂
+
+/-- A vertex-transitive, locally transitive graph is arc-transitive. -/
+theorem isArcTransitive_of_vertexTransitive_locallyTransitive
+    [Group G] [MulAction G V] (Γ : SimpleGraph V) [IsVertexTransitive G V Γ]
+    (hlocal : ∀ v : V, IsLocallyTransitive G V Γ v) :
+    IsArcTransitive G V Γ where
+  arc_transitive := by
+    intro u₁ v₁ u₂ v₂ h₁ h₂
+    obtain ⟨g, hg⟩ := MulAction.exists_smul_eq G u₁ u₂
+    have hadj : Γ.Adj u₂ (g • v₁) := by
+      rw [← hg]
+      exact GraphAction.adj_smul g u₁ v₁ h₁
+    obtain ⟨h, hhu₂, hhv⟩ := hlocal u₂ (g • v₁) v₂ hadj h₂
+    exact ⟨h * g, by rw [mul_smul, hg, hhu₂], by rw [mul_smul, hhv]⟩

Mathlib/Combinatorics/SimpleGraph/CosetGraph.lean

@@ -0,0 +1,128 @@
+/-
+Copyright (c) 2026 Robin Langer. All rights reserved.
+Released under Apache 2.0 license as described in the file LICENSE.
+Authors: Robin Langer
+-/
+module
+
+public import Mathlib.Combinatorics.SimpleGraph.Action
+public import Mathlib.GroupTheory.GroupAction.Quotient
+public import Mathlib.GroupTheory.DoubleCoset
+public import Mathlib.Tactic.Group
+
+/-!
+# Coset graphs (Sabidussi construction)
+
+Given a group `G`, a subgroup `H`, and a *connection set* `D ⊆ G` that is a union of
+`(H, H)`-double cosets, is symmetric (`D = D⁻¹`), and is disjoint from `H`, we define the
+**coset graph** `Sab(G, H, D)` whose vertices are the left cosets `G ⧸ H` and whose edges
+connect `xH` to `yH` whenever `x⁻¹y ∈ D`.
+
+This is Sabidussi's generalization of Cayley graphs: when `H = ⊥`, the coset graph on
+`G ⧸ ⊥ ≃ G` recovers the Cayley graph `Cay(G, D)`.
+
+## Main definitions
+
+* `IsConnectionSet H D` — `D` is a union of `(H, H)`-double cosets, closed under inversion,
+  and disjoint from `H`
+* `SimpleGraph.cosetGraph H D` — the coset graph `Sab(G, H, D)` as a `SimpleGraph (G ⧸ H)`
+
+## Main results
+
+* `SimpleGraph.cosetGraph.adj_mk` — adjacency is characterized by `x⁻¹y ∈ D`
+* `SimpleGraph.cosetGraph.graphAction` — `G` acts on the coset graph preserving adjacency
+* `SimpleGraph.cosetGraph.isVertexTransitive` — coset graphs are vertex-transitive
+
+## References
+
+* Robin Langer, *Symmetric Graphs and their Quotients*, arXiv:1306.4798, Chapter 2 §2.
+* Sabidussi, *Vertex-transitive graphs*, Monatsh. Math. 68 (1964), 426–438.
+-/
+
+@[expose] public section
+
+variable {G : Type*} [Group G]
+
+/-- A set `D ⊆ G` is a *connection set* for the subgroup `H` if it is stable under
+left and right multiplication by `H` (i.e., a union of `(H,H)`-double cosets),
+is closed under inversion, and is disjoint from `H`. -/
+structure IsConnectionSet (H : Subgroup G) (D : Set G) : Prop where
+  /-- `D` is stable under left and right multiplication by elements of `H`. -/
+  double_coset_stable : ∀ d ∈ D, ∀ h₁ ∈ (H : Set G), ∀ h₂ ∈ (H : Set G), h₁ * d * h₂ ∈ D
+  /-- `D` is closed under inversion. -/
+  inv_mem : ∀ d ∈ D, d⁻¹ ∈ D
+  /-- `D` is disjoint from `H`. -/
+  disjoint : Disjoint D ↑H
+
+namespace IsConnectionSet
+
+variable {H : Subgroup G} {D : Set G}
+
+theorem one_not_mem (hD : IsConnectionSet H D) : (1 : G) ∉ D :=
+  fun h => Set.disjoint_left.mp hD.disjoint h (Subgroup.one_mem H)
+
+end IsConnectionSet
+
+/-- The **coset graph** `Sab(G, H, D)`. Vertices are the left cosets `G ⧸ H`,
+and two cosets `xH, yH` are adjacent iff `x⁻¹y ∈ D`.
+
+This is Sabidussi's generalization of Cayley graphs: when `H = ⊥`,
+the coset graph on `G ⧸ ⊥ ≃ G` recovers the Cayley graph `Cay(G, D)`. -/
+noncomputable def SimpleGraph.cosetGraph (H : Subgroup G) (D : Set G)
+    (hD : IsConnectionSet H D) : SimpleGraph (G ⧸ H) where
+  Adj q₁ q₂ := Quotient.liftOn₂ q₁ q₂ (fun x y => x⁻¹ * y ∈ D)
+    (fun a₁ b₁ a₂ b₂ h₁ h₂ => by
+      have ha : a₁⁻¹ * a₂ ∈ (H : Set G) := QuotientGroup.leftRel_apply.mp h₁
+      have hb : b₁⁻¹ * b₂ ∈ (H : Set G) := QuotientGroup.leftRel_apply.mp h₂
+      apply propext; change a₁⁻¹ * b₁ ∈ D ↔ a₂⁻¹ * b₂ ∈ D; constructor
+      · intro h
+        have key : a₂⁻¹ * b₂ = (a₂⁻¹ * a₁) * (a₁⁻¹ * b₁) * (b₁⁻¹ * b₂) := by group
+        rw [key]
+        refine hD.double_coset_stable _ h _ ?_ _ hb
+        have : (a₁⁻¹ * a₂)⁻¹ ∈ (H : Set G) := H.inv_mem ha
+        rwa [mul_inv_rev, inv_inv] at this
+      · intro h
+        have key : a₁⁻¹ * b₁ = (a₁⁻¹ * a₂) * (a₂⁻¹ * b₂) * (b₂⁻¹ * b₁) := by group
+        rw [key]
+        refine hD.double_coset_stable _ h _ ha _ ?_
+        have : (b₁⁻¹ * b₂)⁻¹ ∈ (H : Set G) := H.inv_mem hb
+        rwa [mul_inv_rev, inv_inv] at this)
+  symm := by
+    intro q₁ q₂
+    refine Quotient.inductionOn₂ q₁ q₂ fun x y => ?_
+    simp only [Quotient.liftOn₂_mk]
+    intro h
+    have hmem := hD.inv_mem _ h
+    rwa [mul_inv_rev, inv_inv] at hmem
+  loopless := ⟨by
+    intro q
+    refine Quotient.inductionOn q fun x => ?_
+    simp only [Quotient.liftOn₂_mk]
+    show ¬(x⁻¹ * x ∈ D)
+    rw [inv_mul_cancel]
+    exact hD.one_not_mem⟩
+
+namespace SimpleGraph.cosetGraph
+
+variable (H : Subgroup G) (D : Set G) (hD : IsConnectionSet H D)
+
+/-- Adjacency in the coset graph is characterized by membership of `x⁻¹y` in `D`. -/
+@[simp]
+theorem adj_mk (x y : G) :
+    (cosetGraph H D hD).Adj (QuotientGroup.mk x) (QuotientGroup.mk y) ↔ x⁻¹ * y ∈ D :=
+  Iff.rfl
+
+/-- The left multiplication action of `G` on `G ⧸ H` preserves coset graph adjacency. -/
+instance graphAction : GraphAction G (G ⧸ H) (cosetGraph H D hD) where
+  adj_smul g q₁ q₂ := by
+    refine Quotient.inductionOn₂ q₁ q₂ fun x y => ?_
+    intro h
+    change (g * x)⁻¹ * (g * y) ∈ D
+    rw [mul_inv_rev, mul_assoc, inv_mul_cancel_left]
+    exact h
+
+/-- Coset graphs are vertex-transitive under the natural action of `G`. -/
+instance isVertexTransitive : IsVertexTransitive G (G ⧸ H) (cosetGraph H D hD) where
+  pretransitive := MulAction.isPretransitive_quotient G H
+
+end SimpleGraph.cosetGraph