Theorem: QuasispectrumRestricts.cfc
File: Mathlib/Analysis/NormedSpace/Star/ContinuousFunctionalCalculus/Restrict.lean

tactic: refine ⟨((h a).mp ha).2.nonUnitalStarAlgHom (cfcₙHom ((h a).mp ha).1 (R := S)),
  ?hom_closedEmbedding, ?hom_id, ?hom_map_spectrum, ?predicate_hom⟩
state_before: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ∃ φ,
    ClosedEmbedding ⇑φ ∧
      φ { toContinuousMap := ContinuousMap.restrict (σₙ R a) (ContinuousMap.id R), map_zero' := ⋯ } = a ∧
        (∀ (f : C(↑(σₙ R a), R)₀), σₙ R (φ f) = range ⇑f) ∧ ∀ (f : C(↑(σₙ R a), R)₀), p (φ f)
state_after: case hom_closedEmbedding
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ClosedEmbedding ⇑(nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯)

case hom_id
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ (nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯)
      { toContinuousMap := ContinuousMap.restrict (σₙ R a) (ContinuousMap.id R), map_zero' := ⋯ } =
    a

case hom_map_spectrum
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ∀ (f_1 : C(↑(σₙ R a), R)₀), σₙ R ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) f_1) = range ⇑f_1

case predicate_hom
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ∀ (f_1 : C(↑(σₙ R a), R)₀), p ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) f_1)

tactic: case hom_closedEmbedding =>
  exact ((h a).mp ha).2.closedEmbedding_nonUnitalStarAlgHom
    (cfcₙHom_closedEmbedding ((h a).mp ha).1) halg (h_cpct := h_cpct a ((h a).mp ha).1)
state_before: case hom_closedEmbedding
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ClosedEmbedding ⇑(nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯)

case hom_id
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ (nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯)
      { toContinuousMap := ContinuousMap.restrict (σₙ R a) (ContinuousMap.id R), map_zero' := ⋯ } =
    a

case hom_map_spectrum
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ∀ (f_1 : C(↑(σₙ R a), R)₀), σₙ R ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) f_1) = range ⇑f_1

case predicate_hom
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ∀ (f_1 : C(↑(σₙ R a), R)₀), p ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) f_1)
state_after: case hom_id
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ (nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯)
      { toContinuousMap := ContinuousMap.restrict (σₙ R a) (ContinuousMap.id R), map_zero' := ⋯ } =
    a

case hom_map_spectrum
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ∀ (f_1 : C(↑(σₙ R a), R)₀), σₙ R ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) f_1) = range ⇑f_1

case predicate_hom
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ∀ (f_1 : C(↑(σₙ R a), R)₀), p ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) f_1)

tactic: case hom_id => exact ((h a).mp ha).2.nonUnitalStarAlgHom_id <| cfcₙHom_id ((h a).mp ha).1
state_before: case hom_id
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ (nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯)
      { toContinuousMap := ContinuousMap.restrict (σₙ R a) (ContinuousMap.id R), map_zero' := ⋯ } =
    a

case hom_map_spectrum
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ∀ (f_1 : C(↑(σₙ R a), R)₀), σₙ R ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) f_1) = range ⇑f_1

case predicate_hom
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ∀ (f_1 : C(↑(σₙ R a), R)₀), p ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) f_1)
state_after: case hom_map_spectrum
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ∀ (f_1 : C(↑(σₙ R a), R)₀), σₙ R ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) f_1) = range ⇑f_1

case predicate_hom
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ∀ (f_1 : C(↑(σₙ R a), R)₀), p ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) f_1)

tactic: case predicate_hom =>
  intro g
  rw [h]
  refine ⟨cfcₙHom_predicate _ _, ?_⟩
  refine { rightInvOn := fun s hs ↦ ?_, left_inv := ((h a).mp ha).2.left_inv }
  rw [nonUnitalStarAlgHom_apply,
    cfcₙHom_map_quasispectrum] at hs
  obtain ⟨r, rfl⟩ := hs
  simp [((h a).mp ha).2.left_inv _]
state_before: case predicate_hom
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ∀ (f_1 : C(↑(σₙ R a), R)₀), p ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) f_1)
state_after: no goals

tactic: exact ((h a).mp ha).2.closedEmbedding_nonUnitalStarAlgHom
  (cfcₙHom_closedEmbedding ((h a).mp ha).1) halg (h_cpct := h_cpct a ((h a).mp ha).1)
state_before: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ClosedEmbedding ⇑(nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯)
state_after: no goals

tactic: exact ((h a).mp ha).2.nonUnitalStarAlgHom_id <| cfcₙHom_id ((h a).mp ha).1
state_before: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ (nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯)
      { toContinuousMap := ContinuousMap.restrict (σₙ R a) (ContinuousMap.id R), map_zero' := ⋯ } =
    a
state_after: no goals

tactic: intro g
state_before: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ∀ (f_1 : C(↑(σₙ R a), R)₀), σₙ R ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) f_1) = range ⇑f_1
state_after: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
⊢ σₙ R ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) g) = range ⇑g

tactic: rw [nonUnitalStarAlgHom_apply]
state_before: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
⊢ σₙ R ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) g) = range ⇑g
state_after: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
⊢ σₙ R
      ((cfcₙHom ⋯)
        ({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
          (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))) =
    range ⇑g

tactic: simp only [← @quasispectrum.preimage_algebraMap (R := R) S, cfcₙHom_map_quasispectrum]
state_before: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
⊢ σₙ R
      ((cfcₙHom ⋯)
        ({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
          (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))) =
    range ⇑g
state_after: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
⊢ ⇑(algebraMap R S) ⁻¹'
      range
        ⇑({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
            (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ })) =
    range ⇑g

tactic: ext x
state_before: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
⊢ ⇑(algebraMap R S) ⁻¹'
      range
        ⇑({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
            (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ })) =
    range ⇑g
state_after: case h
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
x : R
⊢ x ∈
      ⇑(algebraMap R S) ⁻¹'
        range
          ⇑({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
              (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ })) ↔
    x ∈ range ⇑g

tactic: constructor
state_before: case h
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
x : R
⊢ x ∈
      ⇑(algebraMap R S) ⁻¹'
        range
          ⇑({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
              (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ })) ↔
    x ∈ range ⇑g
state_after: case h.mp
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
x : R
⊢ x ∈
      ⇑(algebraMap R S) ⁻¹'
        range
          ⇑({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
              (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ })) →
    x ∈ range ⇑g

case h.mpr
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
x : R
⊢ x ∈ range ⇑g →
    x ∈
      ⇑(algebraMap R S) ⁻¹'
        range
          ⇑({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
              (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))

tactic: rintro ⟨y, hy⟩
state_before: case h.mp
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
x : R
⊢ x ∈
      ⇑(algebraMap R S) ⁻¹'
        range
          ⇑({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
              (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ })) →
    x ∈ range ⇑g
state_after: case h.mp.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
x : R
y : ↑(σₙ S a)
hy :
  ({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
        (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
      y =
    (algebraMap R S) x
⊢ x ∈ range ⇑g

tactic: have := congr_arg f hy
state_before: case h.mp.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
x : R
y : ↑(σₙ S a)
hy :
  ({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
        (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
      y =
    (algebraMap R S) x
⊢ x ∈ range ⇑g
state_after: case h.mp.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
x : R
y : ↑(σₙ S a)
hy :
  ({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
        (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
      y =
    (algebraMap R S) x
this :
  f
      (({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
          (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
        y) =
    f ((algebraMap R S) x)
⊢ x ∈ range ⇑g

tactic: simp only [nonUnitalStarAlgHom_postcomp_apply, NonUnitalStarAlgHom.coe_coe,
  Function.comp_apply, comp_apply, coe_mk, ContinuousMap.coe_mk, StarAlgHom.ofId_apply]
  at this
state_before: case h.mp.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
x : R
y : ↑(σₙ S a)
hy :
  ({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
        (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
      y =
    (algebraMap R S) x
this :
  f
      (({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
          (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
        y) =
    f ((algebraMap R S) x)
⊢ x ∈ range ⇑g
state_after: case h.mp.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
x : R
y : ↑(σₙ S a)
hy :
  ({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
        (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
      y =
    (algebraMap R S) x
this : f ((algebraMap R S) (g (Subtype.map ⇑f ⋯ y))) = f ((algebraMap R S) x)
⊢ x ∈ range ⇑g

tactic: rw [((h a).mp ha).2.left_inv _, ((h a).mp ha).2.left_inv _] at this
state_before: case h.mp.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
x : R
y : ↑(σₙ S a)
hy :
  ({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
        (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
      y =
    (algebraMap R S) x
this : f ((algebraMap R S) (g (Subtype.map ⇑f ⋯ y))) = f ((algebraMap R S) x)
⊢ x ∈ range ⇑g
state_after: case h.mp.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
x : R
y : ↑(σₙ S a)
hy :
  ({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
        (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
      y =
    (algebraMap R S) x
this : g (Subtype.map ⇑f ⋯ y) = x
⊢ x ∈ range ⇑g

tactic: exact ⟨_, this⟩
state_before: case h.mp.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
x : R
y : ↑(σₙ S a)
hy :
  ({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
        (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
      y =
    (algebraMap R S) x
this : g (Subtype.map ⇑f ⋯ y) = x
⊢ x ∈ range ⇑g
state_after: no goals

tactic: rintro ⟨y, rfl⟩
state_before: case h.mpr
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
x : R
⊢ x ∈ range ⇑g →
    x ∈
      ⇑(algebraMap R S) ⁻¹'
        range
          ⇑({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
              (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
state_after: case h.mpr.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
y : ↑(σₙ R a)
⊢ g y ∈
    ⇑(algebraMap R S) ⁻¹'
      range
        ⇑({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
            (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))

tactic: rw [Set.mem_preimage]
state_before: case h.mpr.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
y : ↑(σₙ R a)
⊢ g y ∈
    ⇑(algebraMap R S) ⁻¹'
      range
        ⇑({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
            (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
state_after: case h.mpr.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
y : ↑(σₙ R a)
⊢ (algebraMap R S) (g y) ∈
    range
      ⇑({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
          (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))

tactic: refine ⟨⟨algebraMap R S y, quasispectrum.algebraMap_mem S y.prop⟩, ?_⟩
state_before: case h.mpr.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
y : ↑(σₙ R a)
⊢ (algebraMap R S) (g y) ∈
    range
      ⇑({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
          (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
state_after: case h.mpr.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
y : ↑(σₙ R a)
⊢ ({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
        (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
      ⟨(algebraMap R S) ↑y, ⋯⟩ =
    (algebraMap R S) (g y)

tactic: simp only [nonUnitalStarAlgHom_postcomp_apply, NonUnitalStarAlgHom.coe_coe,
  Function.comp_apply, comp_apply, coe_mk, ContinuousMap.coe_mk, StarAlgHom.ofId_apply]
state_before: case h.mpr.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
y : ↑(σₙ R a)
⊢ ({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
        (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
      ⟨(algebraMap R S) ↑y, ⋯⟩ =
    (algebraMap R S) (g y)
state_after: case h.mpr.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
y : ↑(σₙ R a)
⊢ (algebraMap R S) (g (Subtype.map ⇑f ⋯ ⟨(algebraMap R S) ↑y, ⋯⟩)) = (algebraMap R S) (g y)

tactic: congr
state_before: case h.mpr.intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
y : ↑(σₙ R a)
⊢ (algebraMap R S) (g (Subtype.map ⇑f ⋯ ⟨(algebraMap R S) ↑y, ⋯⟩)) = (algebraMap R S) (g y)
state_after: case h.mpr.intro.h.e_6.h.h.e_6.h
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
y : ↑(σₙ R a)
⊢ Subtype.map ⇑f ⋯ ⟨(algebraMap R S) ↑y, ⋯⟩ = y

tactic: exact Subtype.ext (((h a).mp ha).2.left_inv y)
state_before: case h.mpr.intro.h.e_6.h.h.e_6.h
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
y : ↑(σₙ R a)
⊢ Subtype.map ⇑f ⋯ ⟨(algebraMap R S) ↑y, ⋯⟩ = y
state_after: no goals

tactic: intro g
state_before: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
⊢ ∀ (f_1 : C(↑(σₙ R a), R)₀), p ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) f_1)
state_after: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
⊢ p ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) g)

tactic: rw [h]
state_before: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
⊢ p ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) g)
state_after: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
⊢ q ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) g) ∧ QuasispectrumRestricts ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) g) ⇑f

tactic: refine ⟨cfcₙHom_predicate _ _, ?_⟩
state_before: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
⊢ q ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) g) ∧ QuasispectrumRestricts ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) g) ⇑f
state_after: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
⊢ QuasispectrumRestricts ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) g) ⇑f

tactic: refine { rightInvOn := fun s hs ↦ ?_, left_inv := ((h a).mp ha).2.left_inv }
state_before: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
⊢ QuasispectrumRestricts ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) g) ⇑f
state_after: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
s : S
hs : s ∈ σₙ S ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) g)
⊢ (algebraMap R S) (f s) = s

tactic: rw [nonUnitalStarAlgHom_apply,
  cfcₙHom_map_quasispectrum] at hs
state_before: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
s : S
hs : s ∈ σₙ S ((nonUnitalStarAlgHom (cfcₙHom ⋯) ⋯) g)
⊢ (algebraMap R S) (f s) = s
state_after: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
s : S
hs :
  s ∈
    range
      ⇑({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
          (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
⊢ (algebraMap R S) (f s) = s

tactic: obtain ⟨r, rfl⟩ := hs
state_before: R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
s : S
hs :
  s ∈
    range
      ⇑({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
          (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
⊢ (algebraMap R S) (f s) = s
state_after: case intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
r : ↑(σₙ S a)
⊢ (algebraMap R S)
      (f
        (({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
            (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
          r)) =
    ({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
        (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
      r

tactic: simp [((h a).mp ha).2.left_inv _]
state_before: case intro
R : Type u_1
S : Type u_2
A : Type u_3
p q : A → Prop
inst✝²⁴ : Semifield R
inst✝²³ : StarRing R
inst✝²² : MetricSpace R
inst✝²¹ : TopologicalSemiring R
inst✝²⁰ : ContinuousStar R
inst✝¹⁹ : Field S
inst✝¹⁸ : StarRing S
inst✝¹⁷ : MetricSpace S
inst✝¹⁶ : TopologicalRing S
inst✝¹⁵ : ContinuousStar S
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : NonUnitalRing A
inst✝¹² : StarRing A
inst✝¹¹ : Module S A
inst✝¹⁰ : IsScalarTower S A A
inst✝⁹ : SMulCommClass S A A
inst✝⁸ : NonUnitalContinuousFunctionalCalculus S q
inst✝⁷ : Algebra R S
inst✝⁶ : Module R A
inst✝⁵ : IsScalarTower R S A
inst✝⁴ : StarModule R S
inst✝³ : ContinuousSMul R S
inst✝² : CompleteSpace R
inst✝¹ : IsScalarTower R A A
inst✝ : SMulCommClass R A A
f : C(S, R)
halg : UniformEmbedding ⇑(algebraMap R S)
h : ∀ (a : A), p a ↔ q a ∧ QuasispectrumRestricts a ⇑f
h_cpct : ∀ (a : A), q a → CompactSpace ↑(σₙ S a)
a : A
ha : p a
g : C(↑(σₙ R a), R)₀
r : ↑(σₙ S a)
⊢ (algebraMap R S)
      (f
        (({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
            (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
          r)) =
    ({ toFun := ⇑(StarAlgHom.ofId R S), continuous_toFun := ⋯, map_zero' := ⋯ }.comp
        (g.comp { toFun := Subtype.map ⇑f ⋯, continuous_toFun := ⋯, map_zero' := ⋯ }))
      r
state_after: no goals