`BookProof.FriedrichsSquare.isFriedrichsSqExtension_iff_eq_factorRel` [CompleteSpace F] {A : D →ₗ[ℂ] F} (hsym : SymmetricOn D A) {hstab : ∀ v : D, (A v : F) ∈ D} {R : Submodule ℂ (
ProvedBookProof.FriedrichsSquare.isFriedrichsSqExtension_iff_eq_factorReltheoremstimepiece
Prove the following Lean 4 theorem from ChapterFriedrichsSquareFactorization.
BookProof.FriedrichsSquare.isFriedrichsSqExtension_iff_eq_factorRel [CompleteSpace F] {A : D →ₗ[ℂ] F} (hsym : SymmetricOn D A) {hstab : ∀ v : D, (A v : F) ∈ D} {R : Submodule ℂ (F × F)} : IsFriedrichsSqExtension A hstab R ↔ R = factorRel A
Formalization note: Lean 4 identifier BookProof.FriedrichsSquare.isFriedrichsSqExtension_iff_eq_factorRel.
Preamble
-- Generated from ChapterFriedrichsSquareFactorization.lean — theorem BookProof.FriedrichsSquare.isFriedrichsSqExtension_iff_eq_factorRel
import Definitions.Def_ChapterFarisLavine
import Definitions.Def_ChapterEsaClosureCore
import Mathlib
import Definitions.Def_ChapterFriedrichsSquareFactorization
import Definitions.Def_ChapterClosureUniqueness
import Definitions.Def_ChapterFarisLavineCore
import Definitions.Def_ChapterStoneConverse
open BookProof.ClosureUniqueness
open BookProof.ChapterStoneMeasurable
open BookProof.ChapterStoneMeasurable.WeakMeasurableUnitaryGroup
open BookProof.FriedrichsSquare
open BookProof.FarisLavine BookProof.EsaClosure BookProof.ClosureUniqueness
variable {F : Type*} [NormedAddCommGroup F] [InnerProductSpace ℂ F]
variable {D : Submodule ℂ F}
variable [CompleteSpace F]Formal statement
theorem BookProof.FriedrichsSquare.isFriedrichsSqExtension_iff_eq_factorRel [CompleteSpace F] {A : D →ₗ[ℂ] F}
(hsym : SymmetricOn D A) {hstab : ∀ v : D, (A v : F) ∈ D} {R : Submodule ℂ (F × F)} :
IsFriedrichsSqExtension A hstab R ↔ R = factorRel A := by sorry