Documentation

Physicslib4.AQFT.HaagKastlerCurved.LocalVonNeumann

Local von Neumann algebras and spacelike commutation (curved spacetime) #

This is the curved-spacetime counterpart of the Minkowski local von Neumann algebra construction. There is no quasilocal algebra in curved spacetime, so the relevant representations are of a containing basis algebra ๐”˜(B). Given such a representation ฯ€, the local von Neumann algebra of a subregion B' โІ B is the bicommutant R(B') = ฯ€(๐”˜(B'))'' of the local observable operators (the embedding ๐”˜(B') โ†’ ๐”˜(B) being the isotony witness commIsotony). Mathlib models the commutant by Set.centralizer, so R(B') is the double centralizer.

The headline result is microcausality at the von Neumann level: for completely spacelike-separated subregions Bโ‚, Bโ‚‚ โІ B, the local algebras commute, R(Bโ‚) โІ R(Bโ‚‚)'. It is the von Neumann form of curved Einstein causality (einstein_causality): elementwise commutation of the local operators, pushed through the centralizer.

The local observable operators of a subregion B' โІ B in a representation ฯ€ of the containing algebra ๐”˜(B): the image ฯ€(๐”˜(B')) of the local algebra under the isotony embedding.

Equations
Instances For

    The local von Neumann algebra R(B') = ฯ€(๐”˜(B'))'', the bicommutant of the local observable operators (the commutant being Set.centralizer).

    Equations
    Instances For
      theorem Physicslib4.AQFT.HaagKastlerCurved.HaagKastlerNet.localVonNeumann_subset_centralizer {M : LorentzianSpacetime} (N : HaagKastlerNet M) {H : Type u_1} [NormedAddCommGroup H] [InnerProductSpace โ„‚ H] [CompleteSpace H] {B : Set M.Carrier} (hB : M.IsBasisSet B) (ฯ€ : N.algebra B โ†’โ‹†โ‚[โ„‚] H โ†’L[โ„‚] H) โฆƒBโ‚ Bโ‚‚ : Set M.Carrierโฆ„ (hBโ‚ : M.IsBasisSet Bโ‚) (hBโ‚‚ : M.IsBasisSet Bโ‚‚) (hs : M.IsCompletelySpacelike Bโ‚ Bโ‚‚) (hโ‚ : Bโ‚ โІ B) (hโ‚‚ : Bโ‚‚ โІ B) :
      N.localVonNeumann ฯ€ hBโ‚ hB hโ‚ โІ (N.localVonNeumann ฯ€ hBโ‚‚ hB hโ‚‚).centralizer

      Microcausality at the von Neumann level (curved spacetime). For completely spacelike-separated basis subregions Bโ‚, Bโ‚‚ โІ B, the local von Neumann algebras commute: R(Bโ‚) โІ R(Bโ‚‚)'. This is the von Neumann form of curved Einstein causality.

      theorem Physicslib4.AQFT.HaagKastlerCurved.HaagKastlerNet.localVonNeumann_mono {M : LorentzianSpacetime} (N : HaagKastlerNet M) {H : Type u_1} [NormedAddCommGroup H] [InnerProductSpace โ„‚ H] [CompleteSpace H] {B : Set M.Carrier} (hB : M.IsBasisSet B) (ฯ€ : N.algebra B โ†’โ‹†โ‚[โ„‚] H โ†’L[โ„‚] H) โฆƒBโ‚ Bโ‚‚ : Set M.Carrierโฆ„ (hBโ‚ : M.IsBasisSet Bโ‚) (hBโ‚‚ : M.IsBasisSet Bโ‚‚) (hโ‚โ‚‚ : Bโ‚ โІ Bโ‚‚) (hโ‚‚ : Bโ‚‚ โІ B) :
      N.localVonNeumann ฯ€ hBโ‚ hB โ‹ฏ โІ N.localVonNeumann ฯ€ hBโ‚‚ hB hโ‚‚

      Isotony of the net of von Neumann algebras (curved spacetime). For nested basis subregions Bโ‚ โІ Bโ‚‚ โІ B, the local von Neumann algebras are nested: R(Bโ‚) โІ R(Bโ‚‚).

      No coherence hypothesis is needed. The step this rests on is that the embedding ๐”˜(Bโ‚) โ†’ ๐”˜(B) factors through ๐”˜(Bโ‚‚), and that is now the composition law of Axiom 2, available as commIsotony_comp. Formerly the embeddings in play were the witnesses chosen inside Axiom 3, which carried no composition law, so this factorisation had to be assumed as a separate hypothesis hcoh at every site.

      theorem Physicslib4.AQFT.HaagKastlerCurved.HaagKastlerNet.eq_zero_of_commute_of_cyclic {H : Type u_1} [NormedAddCommGroup H] [InnerProductSpace โ„‚ H] {S : Set (H โ†’L[โ„‚] H)} {ฮฉ : H} (hcyc : Dense ((fun (T : H โ†’L[โ„‚] H) => T ฮฉ) '' S)) {R : H โ†’L[โ„‚] H} (hcomm : โˆ€ T โˆˆ S, R * T = T * R) (hRฮฉ : R ฮฉ = 0) :
      R = 0

      Statistical independence (abstract form). If ฮฉ is cyclic for a set S of operators (the vectors T ฮฉ, T โˆˆ S, are dense), then any operator R commuting with every element of S and annihilating ฮฉ is zero. Equivalently, ฮฉ is separating for the commutant of S.

      theorem Physicslib4.AQFT.HaagKastlerCurved.HaagKastlerNet.localVonNeumann_separating {M : LorentzianSpacetime} (N : HaagKastlerNet M) {H : Type u_1} [NormedAddCommGroup H] [InnerProductSpace โ„‚ H] [CompleteSpace H] {B : Set M.Carrier} (hB : M.IsBasisSet B) (ฯ€ : N.algebra B โ†’โ‹†โ‚[โ„‚] H โ†’L[โ„‚] H) โฆƒBโ‚ Bโ‚‚ : Set M.Carrierโฆ„ (hBโ‚ : M.IsBasisSet Bโ‚) (hBโ‚‚ : M.IsBasisSet Bโ‚‚) (hs : M.IsCompletelySpacelike Bโ‚ Bโ‚‚) (hโ‚ : Bโ‚ โІ B) (hโ‚‚ : Bโ‚‚ โІ B) {ฮฉ : H} (hcyc : Dense ((fun (T : H โ†’L[โ„‚] H) => T ฮฉ) '' N.localOperators ฯ€ hBโ‚ hB hโ‚)) {R : H โ†’L[โ„‚] H} (hR : R โˆˆ N.localVonNeumann ฯ€ hBโ‚‚ hB hโ‚‚) (hRฮฉ : R ฮฉ = 0) :
      R = 0

      Statistical independence (Schlieder property) for spacelike curved regions. If ฮฉ is cyclic for the local observables of Bโ‚ - the role supplied in Minkowski spacetime by Reeh-Schlieder - then a nonzero element of the spacelike-separated local von Neumann algebra R(Bโ‚‚) cannot annihilate ฮฉ: R ฮฉ = 0 โŸน R = 0. So ฮฉ is separating for R(Bโ‚‚), the operator-algebraic form of the statistical independence of spacelike-separated local algebras.

      The local observable operators ฯ€(๐”˜(B')) form a self-adjoint set: ฯ€ and the isotony embedding commIsotony are *-homomorphisms.

      The local von Neumann algebra R(B') as a genuine VonNeumannAlgebra: the bicommutant of the self-adjoint set of local observable operators inside B(H). Its underlying set is localVonNeumann ฯ€ hB' hB h.

      Equations
      Instances For
        @[simp]
        theorem Physicslib4.AQFT.HaagKastlerCurved.HaagKastlerNet.localVonNeumannAlgebra_le_commutant {M : LorentzianSpacetime} (N : HaagKastlerNet M) {H : Type u_1} [NormedAddCommGroup H] [InnerProductSpace โ„‚ H] [CompleteSpace H] {B : Set M.Carrier} (hB : M.IsBasisSet B) (ฯ€ : N.algebra B โ†’โ‹†โ‚[โ„‚] H โ†’L[โ„‚] H) โฆƒBโ‚ Bโ‚‚ : Set M.Carrierโฆ„ (hBโ‚ : M.IsBasisSet Bโ‚) (hBโ‚‚ : M.IsBasisSet Bโ‚‚) (hs : M.IsCompletelySpacelike Bโ‚ Bโ‚‚) (hโ‚ : Bโ‚ โІ B) (hโ‚‚ : Bโ‚‚ โІ B) :
        N.localVonNeumannAlgebra ฯ€ hBโ‚ hB hโ‚ โ‰ค (N.localVonNeumannAlgebra ฯ€ hBโ‚‚ hB hโ‚‚).commutant

        Microcausality, bundled (curved spacetime). For completely spacelike-separated subregions Bโ‚, Bโ‚‚ โІ B, the bundled local von Neumann algebras commute, R(Bโ‚) โ‰ค R(Bโ‚‚)'.

        theorem Physicslib4.AQFT.HaagKastlerCurved.HaagKastlerNet.localVonNeumannAlgebra_mono {M : LorentzianSpacetime} (N : HaagKastlerNet M) {H : Type u_1} [NormedAddCommGroup H] [InnerProductSpace โ„‚ H] [CompleteSpace H] {B : Set M.Carrier} (hB : M.IsBasisSet B) (ฯ€ : N.algebra B โ†’โ‹†โ‚[โ„‚] H โ†’L[โ„‚] H) โฆƒBโ‚ Bโ‚‚ : Set M.Carrierโฆ„ (hBโ‚ : M.IsBasisSet Bโ‚) (hBโ‚‚ : M.IsBasisSet Bโ‚‚) (hโ‚โ‚‚ : Bโ‚ โІ Bโ‚‚) (hโ‚‚ : Bโ‚‚ โІ B) :
        N.localVonNeumannAlgebra ฯ€ hBโ‚ hB โ‹ฏ โ‰ค N.localVonNeumannAlgebra ฯ€ hBโ‚‚ hB hโ‚‚

        Isotony, bundled (curved spacetime). Bโ‚ โІ Bโ‚‚ โІ B gives R(Bโ‚) โ‰ค R(Bโ‚‚), with no coherence side condition.

        theorem Physicslib4.AQFT.HaagKastlerCurved.HaagKastlerNet.localVonNeumannAlgebra_separating {M : LorentzianSpacetime} (N : HaagKastlerNet M) {H : Type u_1} [NormedAddCommGroup H] [InnerProductSpace โ„‚ H] [CompleteSpace H] {B : Set M.Carrier} (hB : M.IsBasisSet B) (ฯ€ : N.algebra B โ†’โ‹†โ‚[โ„‚] H โ†’L[โ„‚] H) โฆƒBโ‚ Bโ‚‚ : Set M.Carrierโฆ„ (hBโ‚ : M.IsBasisSet Bโ‚) (hBโ‚‚ : M.IsBasisSet Bโ‚‚) (hs : M.IsCompletelySpacelike Bโ‚ Bโ‚‚) (hโ‚ : Bโ‚ โІ B) (hโ‚‚ : Bโ‚‚ โІ B) {ฮฉ : H} (hcyc : Dense ((fun (T : H โ†’L[โ„‚] H) => T ฮฉ) '' N.localOperators ฯ€ hBโ‚ hB hโ‚)) {R : H โ†’L[โ„‚] H} (hR : R โˆˆ N.localVonNeumannAlgebra ฯ€ hBโ‚‚ hB hโ‚‚) (hRฮฉ : R ฮฉ = 0) :
        R = 0

        Statistical independence, bundled (curved spacetime). If ฮฉ is cyclic for the local observables of Bโ‚, then ฮฉ is separating for the bundled local von Neumann algebra R(Bโ‚‚) of a spacelike-separated subregion: any R โˆˆ R(Bโ‚‚) with R ฮฉ = 0 is zero.

        The chosen Axiom-3 isotony embeddings commIsotony are coherent below B: for nested basis subregions Bโ‚ โІ Bโ‚‚ โІ B, the direct embedding ๐”˜(Bโ‚) โ†’ ๐”˜(B) factors through ๐”˜(Bโ‚‚).

        This was formerly an assumption. The curved Axiom 3 used to select its own isotony witnesses via Classical.choose, so the composition law was unavailable even for the trivial net, whose witness is the identity but hidden behind a Classical.choose that does not reduce. Axiom 2 now owns the isotony family and carries the composition law as one of its fields, and Axiom 3 consumes that family, so this property holds for every net โ€” see isIsotonyCoherentBelow immediately below. The definition is retained as a name for the condition.

        Equations
        • One or more equations did not get rendered due to their size.
        Instances For

          Every net is isotony-coherent below every region. Immediate from the composition law of Axiom 2 (commIsotony_comp), read pointwise. This is what makes the former hcoh hypotheses throughout this file redundant.

          The net of von Neumann algebras as an order-preserving map (curved spacetime). Fixing a containing basis region B and a representation ฯ€ of ๐”˜(B), the assignment B' โ†ฆ R(B') is a monotone map from the poset of basis subregions of B (ordered by inclusion) to the von Neumann algebras of B(H). This is the curved counterpart of the Minkowski vonNeumannNet: the local net restricted to a containing region is a functor on the inclusion poset, sending containment of regions to containment of algebras.

          Monotonicity carries no coherence hypothesis. The factorisation it rests on is the composition law of Axiom 2, discharged for every net by isIsotonyCoherentBelow.

          Equations
          Instances For
            noncomputable def Physicslib4.AQFT.HaagKastlerCurved.HaagKastlerNet.relativeCommutant {M : LorentzianSpacetime} (N : HaagKastlerNet M) {H : Type u_1} [NormedAddCommGroup H] [InnerProductSpace โ„‚ H] [CompleteSpace H] {B : Set M.Carrier} (hB : M.IsBasisSet B) (ฯ€ : N.algebra B โ†’โ‹†โ‚[โ„‚] H โ†’L[โ„‚] H) โฆƒBโ‚ Bโ‚‚ : Set M.Carrierโฆ„ (hBโ‚ : M.IsBasisSet Bโ‚) (hBโ‚‚ : M.IsBasisSet Bโ‚‚) (hโ‚ : Bโ‚ โІ B) (hโ‚‚ : Bโ‚‚ โІ B) :

            The relative commutant of a nested pair R(Bโ‚) โІ R(Bโ‚‚) of subregions of a containing region B, in a representation ฯ€ of ๐”˜(B): the von Neumann algebra R(Bโ‚)' โˆฉ R(Bโ‚‚), built as the meet of the star-subalgebras of the commutant of R(Bโ‚) and of R(Bโ‚‚). Its underlying set is R(Bโ‚)' โˆฉ R(Bโ‚‚). Curved counterpart of the Minkowski relative commutant; the basic object of local-algebra inclusion theory.

            Equations
            • One or more equations did not get rendered due to their size.
            Instances For
              @[simp]
              theorem Physicslib4.AQFT.HaagKastlerCurved.HaagKastlerNet.coe_relativeCommutant {M : LorentzianSpacetime} (N : HaagKastlerNet M) {H : Type u_1} [NormedAddCommGroup H] [InnerProductSpace โ„‚ H] [CompleteSpace H] {B : Set M.Carrier} (hB : M.IsBasisSet B) (ฯ€ : N.algebra B โ†’โ‹†โ‚[โ„‚] H โ†’L[โ„‚] H) โฆƒBโ‚ Bโ‚‚ : Set M.Carrierโฆ„ (hBโ‚ : M.IsBasisSet Bโ‚) (hBโ‚‚ : M.IsBasisSet Bโ‚‚) (hโ‚ : Bโ‚ โІ B) (hโ‚‚ : Bโ‚‚ โІ B) :
              โ†‘(N.relativeCommutant hB ฯ€ hBโ‚ hBโ‚‚ hโ‚ hโ‚‚) = (N.localVonNeumann ฯ€ hBโ‚ hB hโ‚).centralizer โˆฉ N.localVonNeumann ฯ€ hBโ‚‚ hB hโ‚‚

              The underlying set of the relative commutant is R(Bโ‚)' โˆฉ R(Bโ‚‚).

              theorem Physicslib4.AQFT.HaagKastlerCurved.HaagKastlerNet.relativeCommutant_le_right {M : LorentzianSpacetime} (N : HaagKastlerNet M) {H : Type u_1} [NormedAddCommGroup H] [InnerProductSpace โ„‚ H] [CompleteSpace H] {B : Set M.Carrier} (hB : M.IsBasisSet B) (ฯ€ : N.algebra B โ†’โ‹†โ‚[โ„‚] H โ†’L[โ„‚] H) โฆƒBโ‚ Bโ‚‚ : Set M.Carrierโฆ„ (hBโ‚ : M.IsBasisSet Bโ‚) (hBโ‚‚ : M.IsBasisSet Bโ‚‚) (hโ‚ : Bโ‚ โІ B) (hโ‚‚ : Bโ‚‚ โІ B) :
              N.relativeCommutant hB ฯ€ hBโ‚ hBโ‚‚ hโ‚ hโ‚‚ โ‰ค N.localVonNeumannAlgebra ฯ€ hBโ‚‚ hB hโ‚‚

              The relative commutant lies in the larger algebra: R(Bโ‚)' โˆฉ R(Bโ‚‚) โ‰ค R(Bโ‚‚).

              theorem Physicslib4.AQFT.HaagKastlerCurved.HaagKastlerNet.relativeCommutant_coe_subset_commutant {M : LorentzianSpacetime} (N : HaagKastlerNet M) {H : Type u_1} [NormedAddCommGroup H] [InnerProductSpace โ„‚ H] [CompleteSpace H] {B : Set M.Carrier} (hB : M.IsBasisSet B) (ฯ€ : N.algebra B โ†’โ‹†โ‚[โ„‚] H โ†’L[โ„‚] H) โฆƒBโ‚ Bโ‚‚ : Set M.Carrierโฆ„ (hBโ‚ : M.IsBasisSet Bโ‚) (hBโ‚‚ : M.IsBasisSet Bโ‚‚) (hโ‚ : Bโ‚ โІ B) (hโ‚‚ : Bโ‚‚ โІ B) :
              โ†‘(N.relativeCommutant hB ฯ€ hBโ‚ hBโ‚‚ hโ‚ hโ‚‚) โІ (N.localVonNeumann ฯ€ hBโ‚ hB hโ‚).centralizer

              The relative commutant commutes with the smaller algebra: its underlying set is contained in R(Bโ‚)'.

              theorem Physicslib4.AQFT.HaagKastlerCurved.HaagKastlerNet.center_le_relativeCommutant {M : LorentzianSpacetime} (N : HaagKastlerNet M) {H : Type u_1} [NormedAddCommGroup H] [InnerProductSpace โ„‚ H] [CompleteSpace H] {B : Set M.Carrier} (hB : M.IsBasisSet B) (ฯ€ : N.algebra B โ†’โ‹†โ‚[โ„‚] H โ†’L[โ„‚] H) โฆƒBโ‚ Bโ‚‚ : Set M.Carrierโฆ„ (hBโ‚ : M.IsBasisSet Bโ‚) (hBโ‚‚ : M.IsBasisSet Bโ‚‚) (hโ‚โ‚‚ : Bโ‚ โІ Bโ‚‚) (hโ‚‚ : Bโ‚‚ โІ B) :
              N.localVonNeumann ฯ€ hBโ‚‚ hB hโ‚‚ โˆฉ (N.localVonNeumann ฯ€ hBโ‚‚ hB hโ‚‚).centralizer โІ โ†‘(N.relativeCommutant hB ฯ€ hBโ‚ hBโ‚‚ โ‹ฏ hโ‚‚)

              The relative commutant contains the center of the ambient algebra. For nested basis subregions Bโ‚ โІ Bโ‚‚ โІ B, the center R(Bโ‚‚) โˆฉ R(Bโ‚‚)' is contained in R(Bโ‚)' โˆฉ R(Bโ‚‚). Via isotony R(Bโ‚) โ‰ค R(Bโ‚‚) and antitonicity of the commutant. No coherence hypothesis is needed: the factorisation curved isotony requires is the composition law of Axiom 2.

              def Physicslib4.AQFT.HaagKastlerCurved.HaagKastlerNet.IsIrreducibleInclusion {M : LorentzianSpacetime} (N : HaagKastlerNet M) {H : Type u_1} [NormedAddCommGroup H] [InnerProductSpace โ„‚ H] [CompleteSpace H] {B : Set M.Carrier} (hB : M.IsBasisSet B) (ฯ€ : N.algebra B โ†’โ‹†โ‚[โ„‚] H โ†’L[โ„‚] H) โฆƒBโ‚ Bโ‚‚ : Set M.Carrierโฆ„ (hBโ‚ : M.IsBasisSet Bโ‚) (hBโ‚‚ : M.IsBasisSet Bโ‚‚) (hโ‚ : Bโ‚ โІ B) (hโ‚‚ : Bโ‚‚ โІ B) :

              The inclusion R(Bโ‚) โІ R(Bโ‚‚) of subregions of B is irreducible when its relative commutant is trivial: R(Bโ‚)' โˆฉ R(Bโ‚‚) = โ„‚ยท1. Curved counterpart of the subfactor-theoretic notion of an irreducible inclusion.

              Equations
              Instances For
                theorem Physicslib4.AQFT.HaagKastlerCurved.HaagKastlerNet.isFactor_of_isIrreducibleInclusion {M : LorentzianSpacetime} (N : HaagKastlerNet M) {H : Type u_1} [NormedAddCommGroup H] [InnerProductSpace โ„‚ H] [CompleteSpace H] {B : Set M.Carrier} (hB : M.IsBasisSet B) (ฯ€ : N.algebra B โ†’โ‹†โ‚[โ„‚] H โ†’L[โ„‚] H) โฆƒBโ‚ Bโ‚‚ : Set M.Carrierโฆ„ (hBโ‚ : M.IsBasisSet Bโ‚) (hBโ‚‚ : M.IsBasisSet Bโ‚‚) (hโ‚โ‚‚ : Bโ‚ โІ Bโ‚‚) (hโ‚‚ : Bโ‚‚ โІ B) (hirr : N.IsIrreducibleInclusion hB ฯ€ hBโ‚ hBโ‚‚ โ‹ฏ hโ‚‚) :
                IsFactor (N.localVonNeumann ฯ€ hBโ‚‚ hB hโ‚‚)

                An irreducible inclusion forces the ambient algebra to be a factor (curved spacetime). For nested basis subregions Bโ‚ โІ Bโ‚‚ โІ B, if the inclusion R(Bโ‚) โІ R(Bโ‚‚) is irreducible then R(Bโ‚‚) is a factor. The center R(Bโ‚‚) โˆฉ R(Bโ‚‚)' lies in the relative commutant (center_le_relativeCommutant), which is the scalars by hypothesis; the scalars are always central, giving equality. No coherence hypothesis is needed, by the composition law of Axiom 2.

                Self-inclusion is irreducible iff the algebra is a factor (curved spacetime). For a basis subregion B' โІ B in a representation of ๐”˜(B), the trivial self-inclusion R(B') โІ R(B') is irreducible exactly when R(B') is a factor: the relative commutant of the self-inclusion is R(B')' โˆฉ R(B'), i.e. the center of R(B') (up to the order of intersection), which equals the scalars iff R(B') has trivial center.

                The center of a local von Neumann algebra is abelian (curved spacetime). For a subregion B' โІ B in a representation of ๐”˜(B), the center R(B') โˆฉ R(B')' is abelian. A thin specialization of the general vonNeumannCenter_isAbelian to the curved local algebra R(B').

                theorem Physicslib4.AQFT.HaagKastlerCurved.HaagKastlerNet.localVonNeumannAlgebra_isAbelian_iff_eq_scalars_of_isFactor {M : LorentzianSpacetime} (N : HaagKastlerNet M) {H : Type u_1} [NormedAddCommGroup H] [InnerProductSpace โ„‚ H] [CompleteSpace H] {B : Set M.Carrier} (ฯ€ : N.algebra B โ†’โ‹†โ‚[โ„‚] H โ†’L[โ„‚] H) โฆƒB' : Set M.Carrierโฆ„ (hB' : M.IsBasisSet B') (hB : M.IsBasisSet B) (h : B' โІ B) (hfac : IsFactor โ†‘(N.localVonNeumannAlgebra ฯ€ hB' hB h)) :
                (โˆ€ x โˆˆ N.localVonNeumannAlgebra ฯ€ hB' hB h, โˆ€ y โˆˆ N.localVonNeumannAlgebra ฯ€ hB' hB h, x * y = y * x) โ†” โ†‘(N.localVonNeumannAlgebra ฯ€ hB' hB h) = scalarOperators H

                A local von Neumann algebra that is a factor is abelian iff it is the scalars (curved spacetime). For a subregion B' โІ B, if R(B') is a factor then it is abelian exactly when R(B') = โ„‚ยท1. A thin specialization of isAbelian_iff_eq_scalars_of_isFactor to the curved local algebra.

                A local von Neumann algebra shares its center with its commutant (curved spacetime). Z(R(B')) = Z(R(B')'). A thin specialization of the general vonNeumannCenter_eq_commutant to the curved local algebra.

                A local von Neumann algebra is a factor iff its center is the scalars (curved spacetime). A thin specialization of the general isFactor_iff_center_eq_scalars to the curved local algebra R(B').