The lines of the Lean statement that state the theorem, then the definitions in the file that it uses.
Local definitions the statement names, followed through the definitions they name in turn. The match is by name in the source text, so a name reached only through notation can be missed; the full file is below.
abbreviation OAI.FKCRT.Dart line 36
abbrev Dart (n : ℕ) := Fin (2 * (n + 1))
abbreviation OAI.FKCRT.Orbit line 38
abbrev Orbit {n : ℕ} (s : Equiv.Perm (Dart n)) := Quotient (Equiv.Perm.SameCycle.setoid s)
definition OAI.FKCRT.orbit line 41
def orbit {n : ℕ} (s : Equiv.Perm (Dart n)) (d : Dart n) : Orbit s := Quotient.mk _ d
definition OAI.FKCRT.spanningGraph line 49
def spanningGraph {n : ℕ} (a s : Equiv.Perm (Dart n)) (A : Set (Orbit a)) : SimpleGraph (Orbit s) := SimpleGraph.fromRel fun v w => ∃ d : Dart n, orbit a d ∈ A ∧ orbit s d = v ∧ orbit s (a d) = w
definition OAI.FKCRT.MapConditions line 55
def MapConditions {n : ℕ} (P : Equiv.Perm (Dart n) × Equiv.Perm (Dart n)) : Prop := Function.Involutive P.1 ∧ (∀ d, P.1 d ≠ d) ∧ (spanningGraph P.1 P.2 Set.univ).Connected ∧ Nat.card (Orbit P.2) + Nat.card (Orbit (P.2 * P.1)) = n + 3
abbreviation OAI.FKCRT.LabelledMap line 60
abbrev LabelledMap (n : ℕ) := {P : Equiv.Perm (Dart n) × Equiv.Perm (Dart n) // MapConditions P}
definition OAI.FKCRT.MapIso line 64
def MapIso {n : ℕ} (M N : LabelledMap n) : Prop := ∃ r : Equiv.Perm (Dart n), r 0 = 0 ∧ (∀ d, N.val.1 (r d) = r (M.val.1 d)) ∧ (∀ d, N.val.2 (r d) = r (M.val.2 d))
abbreviation OAI.FKCRT.RootedMap line 69
abbrev RootedMap (n : ℕ) := Quotient (Relation.EqvGen.setoid (@MapIso n))
definition OAI.FKCRT.reversal line 73
def reversal {n : ℕ} (M : RootedMap n) : Equiv.Perm (Dart n) := M.out.val.1
definition OAI.FKCRT.rotation line 75
def rotation {n : ℕ} (M : RootedMap n) : Equiv.Perm (Dart n) := M.out.val.2
abbreviation OAI.FKCRT.Vertex line 77
abbrev Vertex {n : ℕ} (M : RootedMap n) := Orbit (rotation M)
abbreviation OAI.FKCRT.Edge line 78
abbrev Edge {n : ℕ} (M : RootedMap n) := Orbit (reversal M)
definition OAI.FKCRT.graph line 80
def graph {n : ℕ} (M : RootedMap n) (A : Set (Edge M)) : SimpleGraph (Vertex M) := spanningGraph (reversal M) (rotation M) A
definition OAI.FKCRT.clusterCount line 84
def clusterCount {n : ℕ} (M : RootedMap n) (A : Finset (Edge M)) : ℕ := Nat.card (graph M (A : Set (Edge M))).ConnectedComponent
definition OAI.FKCRT.fkWeight line 88
def fkWeight {n : ℕ} (q : ℝ) (M : RootedMap n) (A : Finset (Edge M)) : ℝ := Real.rpow q ((clusterCount M A : ℝ) + ((A.card : ℝ) - (Nat.card (Vertex M) : ℝ)) / 2)
definition OAI.FKCRT.partition line 92
def partition (q : ℝ) (n : ℕ) : ℝ := ∑ M : RootedMap n, ∑ A : Finset (Edge M), fkWeight q M A
structure OAI.FKCRT.MetricMeasureData line 96
structure MetricMeasureData where Carrier : Type distance : Carrier → Carrier → ℝ measurableSpace : MeasurableSpace Carrier mass : @Measure Carrier measurableSpace
definition OAI.FKCRT.MetricMeasureData.Valid line 103
def MetricMeasureData.Valid (X : MetricMeasureData) : Prop := ∃ m : MetricSpace X.Carrier, letI := m (∀ x y, dist x y = X.distance x y) ∧ CompactSpace X.Carrier ∧ X.measurableSpace = borel X.Carrier ∧ X.mass Set.univ = 1
definition OAI.FKCRT.degreeMass line 111
def degreeMass {n : ℕ} (M : RootedMap n) : @Measure (Vertex M) ⊤ := letI : MeasurableSpace (Vertex M) := ⊤ ∑ d : Dart n, ENNReal.ofReal (1 / (2 * (n + 1) : ℝ)) • Measure.dirac (orbit (rotation M) d)
definition OAI.FKCRT.mapSpace line 118
def mapSpace {n : ℕ} (scale : ℝ) (M : RootedMap n) : MetricMeasureData where Carrier := Vertex M distance v w := scale * ((graph M Set.univ).dist v w : ℝ) measurableSpace := ⊤ mass := degreeMass M
definition OAI.FKCRT.Amalgamates line 125
def Amalgamates (X Y : MetricMeasureData) (m : PseudoMetricSpace (X.Carrier ⊕ Y.Carrier)) : Prop := letI := m (∀ x x', dist (Sum.inl x : X.Carrier ⊕ Y.Carrier) (Sum.inl x') = X.distance x x') ∧ (∀ y y', dist (Sum.inr y : X.Carrier ⊕ Y.Carrier) (Sum.inr y') = Y.distance y y')
definition OAI.FKCRT.ambientCost line 131
def ambientCost (X Y : MetricMeasureData) (m : PseudoMetricSpace (X.Carrier ⊕ Y.Carrier)) : ℝ≥0∞ :=
Show the remaining 9 lines
letI := m letI : MeasurableSpace (X.Carrier ⊕ Y.Carrier) := borel _ max (Metric.hausdorffEDist (Set.range (Sum.inl : X.Carrier → X.Carrier ⊕ Y.Carrier)) (Set.range (Sum.inr : Y.Carrier → X.Carrier ⊕ Y.Carrier))) (levyProkhorovEDist (@Measure.map X.Carrier (X.Carrier ⊕ Y.Carrier) X.measurableSpace (borel _) Sum.inl X.mass) (@Measure.map Y.Carrier (X.Carrier ⊕ Y.Carrier) Y.measurableSpace (borel _) Sum.inr Y.mass))
definition OAI.FKCRT.ghpEDist line 144
def ghpEDist (X Y : MetricMeasureData) : ℝ≥0∞ := ⨅ m : {m : PseudoMetricSpace (X.Carrier ⊕ Y.Carrier) // Amalgamates X Y m}, ambientCost X Y m.val
definition OAI.FKCRT.IsGHPTest line 150
def IsGHPTest (F : MetricMeasureData → ℝ) : Prop := (∃ C : ℝ, ∀ X, |F X| ≤ C) ∧ ∀ X, X.Valid → ∀ ε : ℝ, 0 < ε → ∃ δ : ℝ, 0 < δ ∧ ∀ Y, Y.Valid → ghpEDist X Y < ENNReal.ofReal δ → |F Y - F X| < ε
7 more definitions are reached the same way; the full file lists them.