Skip to content

Boundary conditions induced on a box by the outer annulus

22 fully proved

A. Gluing inner and outer configurations

DefinitionGluing a box configuration into an outer configuration#✓fully proved

Glue a configuration ω on Λ_n into an outer configuration ψ on Λ_(n+1): edges of Λ_n follow ω, the others follow ψ.

noncomputable def psiExt (d n : ℕ) (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1))))
    (ω : ConfigSpace (Sym2 (boxVerts d n))) : ConfigSpace (Sym2 (boxVerts d (n + 1))) :=
  fun e => if h : e ∈ Set.range (innerEdge d n) then ω h.choose else ψ e
Uses 5 · Used by 22

B. The outer graph and the induced wiring

DefinitionOpen edges of an outer configuration outside the inner box#✓fully proved

The open edges of ψ on Λ_(n+1) that are not edges of Λ_n.

noncomputable def outsideOpenGraph (d n : ℕ) (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
    SimpleGraph (boxVerts d (n + 1)) where
  Adj x y := (boxGraph d (n + 1)).Adj x y ∧ ψ s(x, y) = true ∧ s(x, y) ∉ Set.range (innerEdge d n)
  symm := by
    refine ⟨?_⟩
    rintro x y ⟨hadj, hopen, hrange⟩
    refine ⟨hadj.symm, ?_, ?_⟩ <;> rw [Sym2.eq_swap] <;> assumption
  loopless := ⟨by rintro x ⟨hadj, _, _⟩; exact hadj.ne rfl⟩
Uses 4 · Used by 24

DefinitionOuter open graph plus the outer boundary clique#✓fully proved

The outer graph: open outer edges of ψ together with the clique on ∂Λ_(n+1).

noncomputable def outsideGraph (d n : ℕ) (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
    SimpleGraph (boxVerts d (n + 1)) :=
  outsideOpenGraph d n ψ ⊔ StatMech.Lattice.boundaryCliqueGraph (boxBoundary d (n + 1))
Uses 5 · Used by 11

DefinitionWiring induced on a box through the outer graph#✓fully proved

The wiring induced on Λ_n by ψ: distinct vertices of Λ_n connected in the outer graph.

noncomputable def inducedWiring (d n : ℕ) (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
    SimpleGraph (boxVerts d n) where
  Adj x y := x ≠ y ∧ (outsideGraph d n ψ).Reachable (boxVertIncl d n x) (boxVertIncl d n y)
  symm := by
    refine ⟨?_⟩
    rintro x y ⟨hne, hreach⟩
    exact ⟨hne.symm, hreach.symm⟩
  loopless := ⟨by rintro x ⟨hne, _⟩; exact hne rfl⟩
Uses 4 · Used by 9

C. Decomposition of the glued graph

DefinitionInner open edges viewed in the larger box#✓fully proved

The open edges of ω, viewed as edges of Λ_(n+1).

noncomputable def innerImageGraph (d n : ℕ) (ω : ConfigSpace (Sym2 (boxVerts d n))) :
    SimpleGraph (boxVerts d (n + 1)) where
  Adj x y := (boxGraph d (n + 1)).Adj x y ∧ psiExt d n (fun _ => false) ω s(x, y) = true
    ∧ s(x, y) ∈ Set.range (innerEdge d n)
  symm := by
    refine ⟨?_⟩
    rintro x y ⟨hadj, hopen, hrange⟩
    refine ⟨hadj.symm, ?_, ?_⟩ <;> rw [Sym2.eq_swap] <;> assumption
  loopless := ⟨by rintro x ⟨hadj, _, _⟩; exact hadj.ne rfl⟩
Uses 5 · Used by 14

LemmaWired glued open graph is the union of inner and outer graphs#✓fully proved

The wired open graph of the glued configuration is the union of the inner open edges and the outer graph.

lemma psiWiredGraph_eq_sup (d n : ℕ) (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1))))
    (ω : ConfigSpace (Sym2 (boxVerts d n))) :
    openSub (boxGraph d (n + 1)) (psiExt d n ψ ω)
        ⊔ StatMech.Lattice.boundaryCliqueGraph (boxBoundary d (n + 1))
      = innerImageGraph d n ω ⊔ outsideGraph d n ψ
Uses 14 · Used by 1

AbbreviationWired open graph of a glued configuration#✓fully proved

The wired open graph of the glued configuration on Λ_(n+1).

noncomputable abbrev fullGraph (d n : ℕ) (ω : ConfigSpace (Sym2 (boxVerts d n)))
    (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) : SimpleGraph (boxVerts d (n + 1)) :=
  innerImageGraph d n ω ⊔ outsideGraph d n ψ
Uses 4 · Used by 4

AbbreviationInner open graph with the induced wiring#✓fully proved

The open graph of ω on Λ_n with the induced wiring added.

noncomputable abbrev innerGraph (d n : ℕ) (ω : ConfigSpace (Sym2 (boxVerts d n)))
    (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) : SimpleGraph (boxVerts d n) :=
  openSub (boxGraph d n) ω ⊔ inducedWiring d n ψ
Uses 5 · Used by 4

LemmaGlued and inner graphs have the same connections on the box#✓fully proved

Two vertices of Λ_n are connected in the glued graph iff they are connected in innerGraph.

lemma fullGraph_reachable_boxVertIncl (d n : ℕ)
    (ω : ConfigSpace (Sym2 (boxVerts d n))) (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1))))
    (x y : boxVerts d n) :
    (fullGraph d n ω ψ).Reachable (boxVertIncl d n x) (boxVertIncl d n y)
      ↔ (innerGraph d n ω ψ).Reachable x y
Uses 16

D. Counting clusters

DefinitionOuter vertex whose outer component avoids the inner box#✓fully proved

A vertex of Λ_(n+1) whose outer component contains no vertex of Λ_n.

def OutsideOnly (d n : ℕ) (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1))))
    (u : boxVerts d (n + 1)) : Prop :=
  ∀ v, (outsideGraph d n ψ).Reachable u v → ¬ IsInnerVert d n v
Uses 4 · Used by 2

DefinitionOuter component avoiding the inner box#✓fully proved

OutsideOnly as a predicate on components of the outer graph.

noncomputable def IsOutsideOnly (d n : ℕ) (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
    (outsideGraph d n ψ).ConnectedComponent → Prop :=
  ConnectedComponent.lift (OutsideOnly d n ψ)
    (fun _ _ p _ => propext ⟨fun h => outsideOnly_of_reachable d n ψ h p.reachable,
      fun h => outsideOnly_of_reachable d n ψ h p.reachable.symm⟩)
Uses 4 · Used by 4

DefinitionOuter components avoiding the inner box#✓fully proved

The components of the outer graph that avoid Λ_n.

def OutsideOnlyComp (d n : ℕ) (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) : Type :=
  {c : (outsideGraph d n ψ).ConnectedComponent // IsOutsideOnly d n ψ c}
Uses 4 · Used by 4

DefinitionComponent map into the wired glued graph#✓fully proved

The map from components of innerGraph and outer components avoiding Λ_n to components of the glued graph.

noncomputable def fullComponentMap (d n : ℕ) (ω : ConfigSpace (Sym2 (boxVerts d n)))
    (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
    (innerGraph d n ω ψ).ConnectedComponent ⊕ OutsideOnlyComp d n ψ →
      (fullGraph d n ω ψ).ConnectedComponent
  | Sum.inl c => c.lift (fun x => (fullGraph d n ω ψ).connectedComponentMk (boxVertIncl d n x))
      (fun _ _ p _ => ConnectedComponent.sound
        (fullGraph_reachable_of_innerGraph d n ω ψ p.reachable))
  | Sum.inr c => c.1.lift (fun v => (fullGraph d n ω ψ).connectedComponentMk v)
      (fun _ _ p _ => ConnectedComponent.sound
        (p.reachable.mono (outsideGraph_le_fullGraph d n ω ψ)))
Uses 17 · Used by 1

DefinitionComponent decomposition of the wired glued graph#✓fully proved

Components of the glued graph are components of innerGraph plus the outer components avoiding Λ_n.

noncomputable def fullComponentEquiv (d n : ℕ) (ω : ConfigSpace (Sym2 (boxVerts d n)))
    (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
    (innerGraph d n ω ψ).ConnectedComponent ⊕ OutsideOnlyComp d n ψ ≃
      (fullGraph d n ω ψ).ConnectedComponent :=
  Equiv.ofBijective (fullComponentMap d n ω ψ)
    ⟨fullComponentMap_injective d n ω ψ, fullComponentMap_surjective d n ω ψ⟩
Uses 20 · Used by 1

DefinitionNumber of outer components avoiding the inner box#✓fully proved

The number of outer components avoiding Λ_n.

noncomputable def outsideShift (d n : ℕ) (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) : ℕ :=
  Nat.card (OutsideOnlyComp d n ψ)
Uses 3 · Used by 3

LemmaWired cluster count of a glued configuration splits additively#✓fully proved

The wired cluster count of a glued configuration is the induced cluster count of ω plus outsideShift d n ψ.

lemma numClustersBC_psiExt (d n : ℕ) (ω : ConfigSpace (Sym2 (boxVerts d n)))
    (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
    numClustersBC (boxGraph d (n + 1))
        (StatMech.Lattice.boundaryCliqueGraph (boxBoundary d (n + 1))) (psiExt d n ψ ω)
      = numClustersBC (boxGraph d n) (inducedWiring d n ψ) ω + outsideShift d n ψ
Uses 21 · Used by 1

E. Factorization of the weights

DefinitionOuter Bernoulli edge factor of an outer configuration#✓fully proved

The Bernoulli edge product over the edges of Λ_(n+1) outside Λ_n, evaluated at ψ.

noncomputable def psiEdgeFactor (d n : ℕ) (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1))))
    (p : ℝ) : ℝ :=
  ∏ e ∈ (boxGraph d (n + 1)).edgeFinset.filter (fun e => e ∉ Set.range (innerEdge d n)),
    (if ψ e then p else 1 - p)
Uses 6 · Used by 6

LemmaEdge product of a glued configuration factorizes#✓fully proved

The edge product of a glued configuration factorizes into the inner edge product and psiEdgeFactor.

lemma edgeProduct_psiExt (d n : ℕ) {p : ℝ} (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1))))
    (ω : ConfigSpace (Sym2 (boxVerts d n))) :
    edgeProduct (boxGraph d (n + 1)) p (psiExt d n ψ ω)
      = edgeProduct (boxGraph d n) p ω * psiEdgeFactor d n ψ p
Uses 11 · Used by 2

DefinitionOuter weight factor of an outer configuration#✓fully proved

The factor depending only on ψ: psiEdgeFactor · q ^ outsideShift.

noncomputable def psiShift (d n : ℕ) (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1))))
    (p q : ℝ) : ℝ :=
  psiEdgeFactor d n ψ p * q ^ outsideShift d n ψ
Uses 4 · Used by 1

LemmaDomain Markov property for the wired measure on nested boxes#✓fully proved

Domain Markov property: the wired measure on Λ_(n+1), conditioned on the outer configuration ψ, is the random-cluster measure on Λ_n with the induced wiring.

lemma condBcProb_psiExt_eq_bcProb (d n : ℕ) {p q : ℝ}
    (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
    (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) (ω : ConfigSpace (Sym2 (boxVerts d n))) :
    condBcProb (boxGraph d (n + 1))
        (StatMech.Lattice.boundaryCliqueGraph (boxBoundary d (n + 1))) p q
        (innerEdgeFinset d n) ψ (psiExt d n ψ ω)
      = bcProb (boxGraph d n) (inducedWiring d n ψ) p q ω
Uses 28 · Used by 1

F. The induced wiring lives on the boundary

LemmaInduced wiring lies below the inner boundary clique#✓fully proved

The induced wiring lies below the clique on ∂Λ_n.

lemma inducedWiring_le_wired (d n : ℕ) (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
    inducedWiring d n ψ ≤ StatMech.Lattice.boundaryCliqueGraph (boxBoundary d n)
Uses 17 · Used by 1

G. Domination by the wired measure

LemmaWired box measure dominates the induced-wiring measure for \(q \ge 1\)#✓fully proved

For q ≥ 1, the measure on Λ_n with the induced wiring is dominated by the wired measure on Λ_n.

lemma condBcProb_psiExt_dominated_wired (d n : ℕ)
    (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) {p q : ℝ}
    (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
    {A : Set (ConfigSpace (Sym2 (boxVerts d n)))} (hA : IsIncreasing A) :
    (∑ ω, A.indicator (fun _ => (1 : ℝ)) ω
        * bcProb (boxGraph d n) (inducedWiring d n ψ) p q ω)
      ≤ ∑ ω, A.indicator (fun _ => (1 : ℝ)) ω
          * wiredFkProb (boxGraph d n) (boxBoundary d n) p q ω
Uses 15 · Used by 1

The dependency explorer needs JavaScript and its graph data.

Download the complete graph data.