Five-coloring connected sphere rotation systems with incident vertices and face length at least three
ProvedProofsInTheBook.PlanarMap.PlaneSimpleGraph.fiveColor_planeSimpleGraphLet be finite sets with decidable equality, with . Let be a connected simple graph on . Suppose a dart representation consists of maps and permutations of satisfying: ; for every dart; and ; each dart joins adjacent vertices of ; and for every ordered adjacent pair there is exactly one dart with and . Also assume and that any two darts with the same tail lie in the same -orbit. These are the fields of PlaneSimpleGraph; connectedness is a required field, not supplied by the name alone.
Put , let be the number of -orbits, and let (natural-number division; the fixed-point-free involution pairs the darts). Assume the sphere condition, the incidence condition, and the face-length condition:
The Euler equality is in the integers. The incidence condition excludes isolated vertices; the face-length condition covers every face, including any face subsequently designated as outer. Then there exists a coloring such that
This result supplies the triangulation extension internally, but retains the stated connectedness, nonempty dart set, incidence, sphere, and face-length inputs. It is not a declaration for all abstract planar graphs without those inputs.
import Init
import Mathlib
import Mathlib.Analysis.LocallyConvex.Separation
import Mathlib.Analysis.InnerProductSpace.Dual
import Mathlib.Analysis.Convex.Topology
import Mathlib.Analysis.Convex.Combination
import Mathlib.Data.Finset.Basic
import Definitions.Def_P2MAssembly_Chapter35Plane
set_option autoImplicit true
set_option autoImplicit true
set_option linter.unusedSectionVars false
open ProofsInTheBook.PlanarMap
open Equiv
universe u v u'
open ProofsInTheBook.PlanarMap.PlaneSimpleGraph
variable {V : Type v} {D : Type u} [Fintype V] [DecidableEq V] [Fintype D] [DecidableEq D]
theorem ProofsInTheBook.PlanarMap.PlaneSimpleGraph.fiveColor_planeSimpleGraph (P : PlaneSimpleGraph V D)
(hsphere : P.IsSphereMap)
(hincident : ∀ v : V, ∃ d : D, P.tail d = v)
(h3 : P.toCombMap.FaceLengthGe 3)
[Nonempty D] :
P.G.Colorable 5 := by sorry