@@ -20,9 +20,9 @@ the first tensor's bonds across the bond-dimension equality gives a single
2020gauge family `X` and records, edgewise, both the inserted-coefficient identity
2121and the conjugation form of `Φ_e`.
2222
23- This is the construction consumed by `gaugeConsistency` in
24- `TNLean/PEPS/FundamentalTheorem.lean`; the remaining cross-edge passage to the
25- per-vertex gauge formula is recorded there and in
23+ This is the construction used in the gauge-consistency theorem; the remaining
24+ cross-edge passage to the per-vertex gauge formula is recorded in
25+ the fundamental-theorem module and in
2626`docs/paper-gaps/peps_injective_ft_section3_route.tex`.
2727-/
2828
@@ -63,13 +63,13 @@ an algebra isomorphism `Φ_e` between the bond matrix algebras whose inserted
6363coefficients match. The finite-dimensional algebra step
6464`edgeGaugeFromInsertionAlgebraIsomorphism` (Skolem--Noether) realizes each `Φ_e`
6565as conjugation by an invertible bond matrix on the `B`-side. Transporting those
66- matrices back to the `A` -side bonds across `hDim` gives a single global gauge
67- family `X` , and records, edgewise, both the inserted-coefficient identity and
66+ matrices back to the \( A \) -side bonds across the bond-dimension equality gives
67+ a single global gauge family , and records, edgewise, both the inserted-coefficient identity and
6868that `Φ_e` is conjugation by `X_e`.
6969
7070This records the per-edge content of the source proof up to the point where the
71- edge gauges are produced. The remaining work in `gaugeConsistency` is the
72- cross-edge passage to the per-vertex formula ` B_v = gaugeVertex A X v` , which
71+ edge gauges are produced. The remaining work in gauge consistency is the
72+ cross-edge passage to the per-vertex formula \( B_v = X\cdot A_v \) , which
7373the source obtains from the post-absorption insertion identity
7474(`eq:inj_equal_edge`) and the one-vertex-versus-complement comparison; both of
7575those steps are tracked separately (see
@@ -127,6 +127,8 @@ theorem exists_edgeGaugeFamily (A B : Tensor G d)
127127 (↑(Z e)⁻¹ : Matrix (Fin (B.bondDim e)) (Fin (B.bondDim e)) ℂ) := by
128128 rw [← map_inv, glReindex_coe]
129129 rw [hXcoe, hXinvcoe]
130+ have hProofEq : congr_fun hDim e = hEdge e := Subsingleton.elim _ _
131+ rw [hProofEq]
130132 -- `reindexAlgEquiv (finCongr h)` is a ring hom; push it through products, and
131133 -- the inner `finCongr (hEdge e).symm` round-trips against the outer reindex.
132134 simp only [map_mul,
0 commit comments