OAI/AlgebraicGeometry/CharacterVarieties/Foundation/PatchCycles.lean
48 declarations, 0 contain sorry, 0 declared as axioms
- structure
OAI.IntegralCharacterVarieties.FiniteCycles.Polygonline 13Source documentation
A cyclicly ordered embedded boundary polygon.
structure Polygon (l : ℕ) where …
- def
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.Supportline 20 - lemma
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.next_in_supportline 22 - def
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.separateline 37Source documentation
Separate this new disk from any old label shared by its working strip coordinates. No occurrence or existing corner transport is changed.
noncomputable def separate {F : Type*} (f : α → F) (a : α) : Option F := … - lemma
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.separate_none_iffline 40 - lemma
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.separate_sideline 44 - lemma
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.separate_oldline 49 - lemma
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.separate_nextline 52 - def
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.newSidesline 57Source documentation
The new facet's entire boundary side set, not just an embedded subset, is exactly the given polygon. This makes its unique boundary equation available.
noncomputable def newSides {F : Type*} (f : α → F) : Fin l ≃ {a // C.separate f a=none} where … - def
OAI.IntegralCharacterVarieties.FiniteCycles.blockPolygonline 73Source documentation
Lexicographic subdivision of a cyclic polygon by routed blocks.
def blockPolygon {m n : ℕ} (hm : 0 < m) (f : (Fin m × Fin (n+1)) ↪ α) (step : ∀ t (i : Fin n), σ (f (t,i.castSucc))=f (t,i.succ)) (wrap : ∀ t, σ (f (t,Fin.last n))=f (⟨(t.val+1)% m,Nat.mod_lt _ hm⟩,0)) : Polygon σ (m*(n+1)) where …Mentions: OAI.IntegralCharacterVarieties.FiniteCycles.Polygon
- lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.PortPatch.ParentPath.inner_sideline 116 - def
OAI.IntegralCharacterVarieties.OccurrenceIncidence.PortPatch.routeSeamline 134 - lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.PortPatch.routeSeam_injectiveline 138 - lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.PortPatch.ParentPath.route_sideline 166 - lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.PortPatch.ParentPath.route_sides_injectiveline 173 - def
OAI.IntegralCharacterVarieties.OccurrenceIncidence.PortPatch.ParentPath.cyclicPolygonline 188Source documentation
A cycle of patch routes is an embedded polygon for the boundary permutation. There is no extra topological closure hypothesis.
def cyclicPolygon (hm : 0 < m) (hs : ∀ t, Function.Injective (C t).seam) (route : ∀ t, e.symm ⟨t,b t⟩=⟨⟨(t.val+1)%m,Nat.mod_lt _ hm⟩, a ⟨(t.val+1)%m,Nat.mod_lt _ hm⟩⟩) : IntegralCharacterVarieties.FiniteCycles.Polygon (((family P).complete e he).assemble facet hc).vertexAssembly.corners.boundaryNext (m*(n+1)) := …Mentions: OAI.IntegralCharacterVarieties.FiniteCycles.Polygon, OAI.IntegralCharacterVarieties.OccurrenceIncidence.PortPatch.family, OAI.IntegralCharacterVarieties.OccurrenceIncidence.PortPatch.complete
- lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.uParentPath_seam_injectiveline 216 - lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.qParentPath_seam_injectiveline 219 - lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.u_parent_exhaustiveline 224Source documentation
Exhaustive local topological description of the U boundary. No child of a whole port can be confused with its parent even at a self-incidence.
lemma u_parent_exhaustive (x : LocalEnd Vertex kind) (hx : (decoration x.1).color x.2=.U) : ∃ j : Fin 3, x=uParentPath.node j ∨ x=localMate (uParentPath.node j) := by …Mentions: OAI.IntegralCharacterVarieties.OccurrenceIncidence.LocalEnd, OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Vertex, OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.kind, OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.decoration, OAI.IntegralCharacterVarieties.OccurrenceIncidence.localMate
- lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.q_parent_exhaustiveline 241 - def
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.startline 266 - lemma
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.iterate_sideline 269 - lemma
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.side_sameCycleline 280 - def
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.newComponentline 291Source documentation
Its separated new-facet label has only one orbit; this identifies the ENTIRE new facet boundary, in an arbitrary sewn global occurrence diagram.
noncomputable def newComponent {F : Type} (f : α → F) : FacetComponents σ (C.separate f) none := …Mentions: OAI.IntegralCharacterVarieties.FiniteCycles.FacetComponents
- lemma
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.newComponent_uniqueline 303 - def
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.newComponentsline 316 - theorem
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.new_boundary_countline 323 - theorem
OAI.IntegralCharacterVarieties.FiniteCycles.Polygon.componentCount_of_supportline 337Source documentation
An exhaustive polygon determines the entire named facet boundary, not merely a cycle inside it. This does not change any original side label.
theorem componentCount_of_support {F : Type} (f : α → F) (u : F) (h : ∀ z, z∈C.Support ↔ f z=u) : componentCount σ f u=1 := by …Mentions: OAI.IntegralCharacterVarieties.FiniteCycles.componentCount
- lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.PortWiring.sideOf_surjectiveline 352 - abbrev
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.patchesline 370 - abbrev
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.colorsline 371 - abbrev
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.wiringline 377 - abbrev
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.assemblyline 379 - lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.color_mateline 382 - def
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.uPolygonline 391 - lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.u_sideline 397 - lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.u_node_memline 404 - lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.u_support_colorline 409 - theorem
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.u_boundary_countline 438Source documentation
The named U facet has exactly one boundary component, with no separation of labels and no unproved disk-topology interface.
theorem u_boundary_count : IntegralCharacterVarieties.FiniteCycles.componentCount (assembly e he hd).vertexAssembly.corners.boundaryNext ((wiring e he).coloredFacet colors) .U=1 := …Mentions: OAI.IntegralCharacterVarieties.FiniteCycles.componentCount, OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.assembly, OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.wiring, OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.colors
- def
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.qPolygonline 445 - lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.q_sideline 451 - lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.q_node_memline 458 - lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.q_support_colorline 463 - theorem
OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.q_boundary_countline 492Source documentation
The named Q facet has exactly one boundary component, with no separation of labels and no unproved disk-topology interface.
theorem q_boundary_count : IntegralCharacterVarieties.FiniteCycles.componentCount (assembly e he hd).vertexAssembly.corners.boundaryNext ((wiring e he).coloredFacet colors) .Q=1 := …Mentions: OAI.IntegralCharacterVarieties.FiniteCycles.componentCount, OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.assembly, OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.wiring, OAI.IntegralCharacterVarieties.OccurrenceIncidence.ComplementaryPatch.Cyclic.colors
- def
OAI.IntegralCharacterVarieties.OccurrenceIncidence.VariableGallery.parentPathline 510Source documentation
Every gallery, including arbitrary splitting/merging and adjacent passages, has its input-to-output parent boundary route. All unconsumed branch ports remain exposed by
patch; no branch is deleted here.noncomputable def parentPath : PortPatch.ParentPath (patch kind ha) l ⟨input kind 0, first_exposed kind⟩ ⟨output kind (Fin.last l), last_exposed kind⟩ where …Mentions: OAI.IntegralCharacterVarieties.OccurrenceIncidence.PortPatch.ParentPath, OAI.IntegralCharacterVarieties.OccurrenceIncidence.VariableGallery.patch, OAI.IntegralCharacterVarieties.OccurrenceIncidence.VariableGallery.input, OAI.IntegralCharacterVarieties.OccurrenceIncidence.VariableGallery.first_exposed, OAI.IntegralCharacterVarieties.OccurrenceIncidence.VariableGallery.output, OAI.IntegralCharacterVarieties.OccurrenceIncidence.VariableGallery.last_exposed
- lemma
OAI.IntegralCharacterVarieties.OccurrenceIncidence.VariableGallery.parentPath_seam_injectiveline 523 - theorem
OAI.IntegralCharacterVarieties.FiniteCycles.variableCyclic_sameCycleline 532Source documentation
Unequal-length rows of a cyclic boundary are one permutation orbit. Length is not padded by fictitious vertices or zero-rank blocks.
theorem variableCyclic_sameCycle {α : Type} (σ : Equiv.Perm α) {m : ℕ} (n : Fin (m+1) → ℕ) (node : (t : Fin (m+1)) → Fin (n t+1) → α) (step : ∀ t (j : Fin (n t)), σ (node t j.castSucc)=node t j.succ) (wrap : ∀ t, σ (node t (Fin.last (n t)))= node ⟨(t.val+1)%(m+1),Nat.mod_lt _ (Nat.succ_pos _)⟩ 0) (t : Fin (m+1)) (j : Fin (n t+1)) : σ.SameCycle (node 0 0) (node t j) := by … - theorem
OAI.IntegralCharacterVarieties.FiniteCycles.componentCount_of_connectedline 567Source documentation
A named facet has one boundary precisely when all its sides belong to the orbit of one of its sides. No new separated labeling is introduced.
theorem componentCount_of_connected {α F : Type} [Finite α] (σ : Equiv.Perm α) (facet : α → F) (hc : ∀ x, facet (σ x)=facet x) (u : F) (x : α) (hx : facet x=u) (connected : ∀ y, facet y=u → σ.SameCycle x y) : componentCount σ facet u=1 := by …Mentions: OAI.IntegralCharacterVarieties.FiniteCycles.componentCount