instance instSetLike : SetLike (VonNeumannAlgebra H) (H →L[ℂ] H) where
  coe S := S.carrier
  coe_injective' S T h := by obtain ⟨⟨⟨⟨⟨⟨_, _⟩, _⟩, _⟩, _⟩, _⟩, _⟩ := S; 

Proof state:
case mk.mk.mk.mk.mk.mk
H : Type u
inst✝² : NormedAddCommGroup H
inst✝¹ : InnerProductSpace ℂ H
inst✝ : CompleteSpace H
T : VonNeumannAlgebra H
carrier✝ : Set (H →L[ℂ] H)
mul_mem'✝ : ∀ {a b : H →L[ℂ] H}, a ∈ carrier✝ → b ∈ carrier✝ → a * b ∈ carrier✝
one_mem'✝ : 1 ∈ { carrier := carrier✝, mul_mem' := mul_mem'✝ }.carrier
add_mem'✝ :
  ∀ {a b : H →L[ℂ] H},
    a ∈
        { toSubsemigroup := { carrier := carrier✝, mul_mem' := mul_mem'✝ },
              one_mem' := one_mem'✝ }.toSubsemigroup.carrier →
      b ∈
          { toSubsemigroup := { carrier := carrier✝, mul_mem' := mul_mem'✝ },
                one_mem' := one_mem'✝ }.toSubsemigroup.carrier →
        a + b ∈
          { toSubsemigroup := { carrier := carrier✝, mul_mem' := mul_mem'✝ },
                one_mem' := one_mem'✝ }.toSubsemigroup.carrier
zero_mem'✝ :
  0 ∈ { toSubsemigroup := { carrier := carrier✝, mul_mem' := mul_mem'✝ }, one_mem' := one_mem'✝ }.toSubsemigroup.carrier
algebraMap_mem'✝ :
  ∀ (r : ℂ),
    (algebraMap ℂ (H →L[ℂ] H)) r ∈
      { toSubmonoid := { toSubsemigroup := { carrier := carrier✝, mul_mem' := mul_mem'✝ }, one_mem' := one_mem'✝ },
              add_mem' := add_mem'✝, zero_mem' := zero_mem'✝ }.toSubmonoid.toSubsemigroup.carrier
star_mem'✝ :
  ∀ {a : H →L[ℂ] H},
    a ∈
        {
                  toSubsemiring :=
                    {
                      toSubmonoid :=
                        { toSubsemigroup := { carrier := carrier✝, mul_mem' := mul_mem'✝ }, one_mem' := one_mem'✝ },
                      add_mem' := add_mem'✝, zero_mem' := zero_mem'✝ },
                  algebraMap_mem' := algebraMap_mem'✝ }.toSubsemiring.toSubmonoid.toSubsemigroup.carrier →
      star a ∈
        {
                  toSubsemiring :=
                    {
                      toSubmonoid :=
                        { toSubsemigroup := { carrier := carrier✝, mul_mem' := mul_mem'✝ }, one_mem' := one_mem'✝ },
                      add_mem' := add_mem'✝, zero_mem' := zero_mem'✝ },
                  algebraMap_mem' := algebraMap_mem'✝ }.toSubsemiring.toSubmonoid.toSubsemigroup.carrier
centralizer_centralizer'✝ :
  Set.centralizer
      (Set.centralizer
        {
                    toSubalgebra :=
                      {
                        toSubsemiring :=
                          {
                            toSubmonoid :=
                              { toSubsemigroup := { carrier := carrier✝, mul_mem' := mul_mem'✝ },
                                one_mem' := one_mem'✝ },
                            add_mem' := add_mem'✝, zero_mem' := zero_mem'✝ },
                        algebraMap_mem' := algebraMap_mem'✝ },
                    star_mem' := star_mem'✝ }.toSubalgebra.toSubsemiring.toSubmonoid.toSubsemigroup.carrier) =
    {
                toSubalgebra :=
                  {
                    toSubsemiring :=
                      {
                        toSubmonoid :=
                          { toSubsemigroup := { carrier := carrier✝, mul_mem' := mul_mem'✝ }, one_mem' := one_mem'✝ },
                        add_mem' := add_mem'✝, zero_mem' := zero_mem'✝ },
                    algebraMap_mem' := algebraMap_mem'✝ },
                star_mem' := star_mem'✝ }.toSubalgebra.toSubsemiring.toSubmonoid.toSubsemigroup.carrier
h :
  (fun S => S.carrier)
      {
        toStarSubalgebra :=
          {
            toSubalgebra :=
              {
                toSubsemiring :=
                  {
                    toSubmonoid :=
                      { toSubsemigroup := { carrier := carrier✝, mul_mem' := mul_mem'✝ }, one_mem' := one_mem'✝ },
                    add_mem' := add_mem'✝, zero_mem' := zero_mem'✝ },
                algebraMap_mem' := algebraMap_mem'✝ },
            star_mem' := star_mem'✝ },
        centralizer_centralizer' := centralizer_centralizer'✝ } =
    (fun S => S.carrier) T
⊢ {
      toStarSubalgebra :=
        {
          toSubalgebra :=
            {
              toSubsemiring :=
                {
                  toSubmonoid :=
                    { toSubsemigroup := { carrier := carrier✝, mul_mem' := mul_mem'✝ }, one_mem' := one_mem'✝ },
                  add_mem' := add_mem'✝, zero_mem' := zero_mem'✝ },
              algebraMap_mem' := algebraMap_mem'✝ },
          star_mem' := star_mem'✝ },
      centralizer_centralizer' := centralizer_centralizer'✝ } =
    T

Next tactic:
cases T