Theorem: elementalStarAlgebra.starAlgHomClass_ext
File: Mathlib/Topology/Algebra/StarSubalgebra.lean

Proof steps:
state_before: R : Type u_1
A : Type u_2
B : Type u_3
inst✝¹⁶ : CommSemiring R
inst✝¹⁵ : StarRing R
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : Semiring A
inst✝¹² : StarRing A
inst✝¹¹ : TopologicalSemiring A
inst✝¹⁰ : ContinuousStar A
inst✝⁹ : Algebra R A
inst✝⁸ : StarModule R A
inst✝⁷ : TopologicalSpace B
inst✝⁶ : Semiring B
inst✝⁵ : StarRing B
inst✝⁴ : Algebra R B
inst✝³ : T2Space B
F : Type u_4
a : A
inst✝² : FunLike F (↥(elementalStarAlgebra R a)) B
inst✝¹ : AlgHomClass F R (↥(elementalStarAlgebra R a)) B
inst✝ : StarAlgHomClass F R (↥(elementalStarAlgebra R a)) B
φ ψ : F
hφ : Continuous ⇑φ
hψ : Continuous ⇑ψ
h : φ ⟨a, ⋯⟩ = ψ ⟨a, ⋯⟩
⊢ φ = ψ
state_after: R : Type u_1
A : Type u_2
B : Type u_3
inst✝¹⁶ : CommSemiring R
inst✝¹⁵ : StarRing R
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : Semiring A
inst✝¹² : StarRing A
inst✝¹¹ : TopologicalSemiring A
inst✝¹⁰ : ContinuousStar A
inst✝⁹ : Algebra R A
inst✝⁸ : StarModule R A
inst✝⁷ : TopologicalSpace B
inst✝⁶ : Semiring B
inst✝⁵ : StarRing B
inst✝⁴ : Algebra R B
inst✝³ : T2Space B
F : Type u_4
a : A
inst✝² : FunLike F (↥(elementalStarAlgebra R a)) B
inst✝¹ : AlgHomClass F R (↥(elementalStarAlgebra R a)) B
inst✝ : StarAlgHomClass F R (↥(elementalStarAlgebra R a)) B
φ ψ : F
hφ : Continuous ⇑φ
hψ : Continuous ⇑ψ
h : φ ⟨a, ⋯⟩ = ψ ⟨a, ⋯⟩
this : StarAlgHomClass F R (↥(adjoin R {a}).topologicalClosure) B
⊢ φ = ψ
tactic: have : StarAlgHomClass F R (↥(topologicalClosure (adjoin R {a}))) B :=
    inferInstanceAs (StarAlgHomClass F R (elementalStarAlgebra R a) B)
state_before: R : Type u_1
A : Type u_2
B : Type u_3
inst✝¹⁶ : CommSemiring R
inst✝¹⁵ : StarRing R
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : Semiring A
inst✝¹² : StarRing A
inst✝¹¹ : TopologicalSemiring A
inst✝¹⁰ : ContinuousStar A
inst✝⁹ : Algebra R A
inst✝⁸ : StarModule R A
inst✝⁷ : TopologicalSpace B
inst✝⁶ : Semiring B
inst✝⁵ : StarRing B
inst✝⁴ : Algebra R B
inst✝³ : T2Space B
F : Type u_4
a : A
inst✝² : FunLike F (↥(elementalStarAlgebra R a)) B
inst✝¹ : AlgHomClass F R (↥(elementalStarAlgebra R a)) B
inst✝ : StarAlgHomClass F R (↥(elementalStarAlgebra R a)) B
φ ψ : F
hφ : Continuous ⇑φ
hψ : Continuous ⇑ψ
h : φ ⟨a, ⋯⟩ = ψ ⟨a, ⋯⟩
this : StarAlgHomClass F R (↥(adjoin R {a}).topologicalClosure) B
⊢ φ = ψ
state_after: R : Type u_1
A : Type u_2
B : Type u_3
inst✝¹⁶ : CommSemiring R
inst✝¹⁵ : StarRing R
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : Semiring A
inst✝¹² : StarRing A
inst✝¹¹ : TopologicalSemiring A
inst✝¹⁰ : ContinuousStar A
inst✝⁹ : Algebra R A
inst✝⁸ : StarModule R A
inst✝⁷ : TopologicalSpace B
inst✝⁶ : Semiring B
inst✝⁵ : StarRing B
inst✝⁴ : Algebra R B
inst✝³ : T2Space B
F : Type u_4
a : A
inst✝² : FunLike F (↥(elementalStarAlgebra R a)) B
inst✝¹ : AlgHomClass F R (↥(elementalStarAlgebra R a)) B
inst✝ : StarAlgHomClass F R (↥(elementalStarAlgebra R a)) B
φ ψ : F
hφ : Continuous ⇑φ
hψ : Continuous ⇑ψ
h : φ ⟨a, ⋯⟩ = ψ ⟨a, ⋯⟩
this : StarAlgHomClass F R (↥(adjoin R {a}).topologicalClosure) B
x : ↥(adjoin R {a})
⊢ φ ((StarSubalgebra.inclusion ⋯) x) = ψ ((StarSubalgebra.inclusion ⋯) x)
tactic: refine StarAlgHomClass.ext_topologicalClosure hφ hψ fun x => ?_
state_before: R : Type u_1
A : Type u_2
B : Type u_3
inst✝¹⁶ : CommSemiring R
inst✝¹⁵ : StarRing R
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : Semiring A
inst✝¹² : StarRing A
inst✝¹¹ : TopologicalSemiring A
inst✝¹⁰ : ContinuousStar A
inst✝⁹ : Algebra R A
inst✝⁸ : StarModule R A
inst✝⁷ : TopologicalSpace B
inst✝⁶ : Semiring B
inst✝⁵ : StarRing B
inst✝⁴ : Algebra R B
inst✝³ : T2Space B
F : Type u_4
a : A
inst✝² : FunLike F (↥(elementalStarAlgebra R a)) B
inst✝¹ : AlgHomClass F R (↥(elementalStarAlgebra R a)) B
inst✝ : StarAlgHomClass F R (↥(elementalStarAlgebra R a)) B
φ ψ : F
hφ : Continuous ⇑φ
hψ : Continuous ⇑ψ
h : φ ⟨a, ⋯⟩ = ψ ⟨a, ⋯⟩
this : StarAlgHomClass F R (↥(adjoin R {a}).topologicalClosure) B
x : ↥(adjoin R {a})
⊢ φ ((StarSubalgebra.inclusion ⋯) x) = ψ ((StarSubalgebra.inclusion ⋯) x)
state_after: case refine_1
R : Type u_1
A : Type u_2
B : Type u_3
inst✝¹⁶ : CommSemiring R
inst✝¹⁵ : StarRing R
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : Semiring A
inst✝¹² : StarRing A
inst✝¹¹ : TopologicalSemiring A
inst✝¹⁰ : ContinuousStar A
inst✝⁹ : Algebra R A
inst✝⁸ : StarModule R A
inst✝⁷ : TopologicalSpace B
inst✝⁶ : Semiring B
inst✝⁵ : StarRing B
inst✝⁴ : Algebra R B
inst✝³ : T2Space B
F : Type u_4
a : A
inst✝² : FunLike F (↥(elementalStarAlgebra R a)) B
inst✝¹ : AlgHomClass F R (↥(elementalStarAlgebra R a)) B
inst✝ : StarAlgHomClass F R (↥(elementalStarAlgebra R a)) B
φ ψ : F
hφ : Continuous ⇑φ
hψ : Continuous ⇑ψ
h : φ ⟨a, ⋯⟩ = ψ ⟨a, ⋯⟩
this : StarAlgHomClass F R (↥(adjoin R {a}).topologicalClosure) B
x : ↥(adjoin R {a})
⊢ ∀ (x : A) (h : x ∈ {a}), φ ((StarSubalgebra.inclusion ⋯) ⟨x, ⋯⟩) = ψ ((StarSubalgebra.inclusion ⋯) ⟨x, ⋯⟩)

case refine_2
R : Type u_1
A : Type u_2
B : Type u_3
inst✝¹⁶ : CommSemiring R
inst✝¹⁵ : StarRing R
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : Semiring A
inst✝¹² : StarRing A
inst✝¹¹ : TopologicalSemiring A
inst✝¹⁰ : ContinuousStar A
inst✝⁹ : Algebra R A
inst✝⁸ : StarModule R A
inst✝⁷ : TopologicalSpace B
inst✝⁶ : Semiring B
inst✝⁵ : StarRing B
inst✝⁴ : Algebra R B
inst✝³ : T2Space B
F : Type u_4
a : A
inst✝² : FunLike F (↥(elementalStarAlgebra R a)) B
inst✝¹ : AlgHomClass F R (↥(elementalStarAlgebra R a)) B
inst✝ : StarAlgHomClass F R (↥(elementalStarAlgebra R a)) B
φ ψ : F
hφ : Continuous ⇑φ
hψ : Continuous ⇑ψ
h : φ ⟨a, ⋯⟩ = ψ ⟨a, ⋯⟩
this : StarAlgHomClass F R (↥(adjoin R {a}).topologicalClosure) B
x : ↥(adjoin R {a})
⊢ ∀ (r : R),
    φ ((StarSubalgebra.inclusion ⋯) ((algebraMap R ↥(adjoin R {a})) r)) =
      ψ ((StarSubalgebra.inclusion ⋯) ((algebraMap R ↥(adjoin R {a})) r))

case refine_3
R : Type u_1
A : Type u_2
B : Type u_3
inst✝¹⁶ : CommSemiring R
inst✝¹⁵ : StarRing R
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : Semiring A
inst✝¹² : StarRing A
inst✝¹¹ : TopologicalSemiring A
inst✝¹⁰ : ContinuousStar A
inst✝⁹ : Algebra R A
inst✝⁸ : StarModule R A
inst✝⁷ : TopologicalSpace B
inst✝⁶ : Semiring B
inst✝⁵ : StarRing B
inst✝⁴ : Algebra R B
inst✝³ : T2Space B
F : Type u_4
a : A
inst✝² : FunLike F (↥(elementalStarAlgebra R a)) B
inst✝¹ : AlgHomClass F R (↥(elementalStarAlgebra R a)) B
inst✝ : StarAlgHomClass F R (↥(elementalStarAlgebra R a)) B
φ ψ : F
hφ : Continuous ⇑φ
hψ : Continuous ⇑ψ
h : φ ⟨a, ⋯⟩ = ψ ⟨a, ⋯⟩
this : StarAlgHomClass F R (↥(adjoin R {a}).topologicalClosure) B
x : ↥(adjoin R {a})
⊢ ∀ (x y : ↥(adjoin R {a})),
    φ ((StarSubalgebra.inclusion ⋯) x) = ψ ((StarSubalgebra.inclusion ⋯) x) →
      φ ((StarSubalgebra.inclusion ⋯) y) = ψ ((StarSubalgebra.inclusion ⋯) y) →
        φ ((StarSubalgebra.inclusion ⋯) (x + y)) = ψ ((StarSubalgebra.inclusion ⋯) (x + y))

case refine_4
R : Type u_1
A : Type u_2
B : Type u_3
inst✝¹⁶ : CommSemiring R
inst✝¹⁵ : StarRing R
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : Semiring A
inst✝¹² : StarRing A
inst✝¹¹ : TopologicalSemiring A
inst✝¹⁰ : ContinuousStar A
inst✝⁹ : Algebra R A
inst✝⁸ : StarModule R A
inst✝⁷ : TopologicalSpace B
inst✝⁶ : Semiring B
inst✝⁵ : StarRing B
inst✝⁴ : Algebra R B
inst✝³ : T2Space B
F : Type u_4
a : A
inst✝² : FunLike F (↥(elementalStarAlgebra R a)) B
inst✝¹ : AlgHomClass F R (↥(elementalStarAlgebra R a)) B
inst✝ : StarAlgHomClass F R (↥(elementalStarAlgebra R a)) B
φ ψ : F
hφ : Continuous ⇑φ
hψ : Continuous ⇑ψ
h : φ ⟨a, ⋯⟩ = ψ ⟨a, ⋯⟩
this : StarAlgHomClass F R (↥(adjoin R {a}).topologicalClosure) B
x : ↥(adjoin R {a})
⊢ ∀ (x y : ↥(adjoin R {a})),
    φ ((StarSubalgebra.inclusion ⋯) x) = ψ ((StarSubalgebra.inclusion ⋯) x) →
      φ ((StarSubalgebra.inclusion ⋯) y) = ψ ((StarSubalgebra.inclusion ⋯) y) →
        φ ((StarSubalgebra.inclusion ⋯) (x * y)) = ψ ((StarSubalgebra.inclusion ⋯) (x * y))

case refine_5
R : Type u_1
A : Type u_2
B : Type u_3
inst✝¹⁶ : CommSemiring R
inst✝¹⁵ : StarRing R
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : Semiring A
inst✝¹² : StarRing A
inst✝¹¹ : TopologicalSemiring A
inst✝¹⁰ : ContinuousStar A
inst✝⁹ : Algebra R A
inst✝⁸ : StarModule R A
inst✝⁷ : TopologicalSpace B
inst✝⁶ : Semiring B
inst✝⁵ : StarRing B
inst✝⁴ : Algebra R B
inst✝³ : T2Space B
F : Type u_4
a : A
inst✝² : FunLike F (↥(elementalStarAlgebra R a)) B
inst✝¹ : AlgHomClass F R (↥(elementalStarAlgebra R a)) B
inst✝ : StarAlgHomClass F R (↥(elementalStarAlgebra R a)) B
φ ψ : F
hφ : Continuous ⇑φ
hψ : Continuous ⇑ψ
h : φ ⟨a, ⋯⟩ = ψ ⟨a, ⋯⟩
this : StarAlgHomClass F R (↥(adjoin R {a}).topologicalClosure) B
x : ↥(adjoin R {a})
⊢ ∀ (x : ↥(adjoin R {a})),
    φ ((StarSubalgebra.inclusion ⋯) x) = ψ ((StarSubalgebra.inclusion ⋯) x) →
      φ ((StarSubalgebra.inclusion ⋯) (star x)) = ψ ((StarSubalgebra.inclusion ⋯) (star x))
tactic: refine adjoin_induction' x ?_ ?_ ?_ ?_ ?_
state_before: case refine_1
R : Type u_1
A : Type u_2
B : Type u_3
inst✝¹⁶ : CommSemiring R
inst✝¹⁵ : StarRing R
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : Semiring A
inst✝¹² : StarRing A
inst✝¹¹ : TopologicalSemiring A
inst✝¹⁰ : ContinuousStar A
inst✝⁹ : Algebra R A
inst✝⁸ : StarModule R A
inst✝⁷ : TopologicalSpace B
inst✝⁶ : Semiring B
inst✝⁵ : StarRing B
inst✝⁴ : Algebra R B
inst✝³ : T2Space B
F : Type u_4
a : A
inst✝² : FunLike F (↥(elementalStarAlgebra R a)) B
inst✝¹ : AlgHomClass F R (↥(elementalStarAlgebra R a)) B
inst✝ : StarAlgHomClass F R (↥(elementalStarAlgebra R a)) B
φ ψ : F
hφ : Continuous ⇑φ
hψ : Continuous ⇑ψ
h : φ ⟨a, ⋯⟩ = ψ ⟨a, ⋯⟩
this : StarAlgHomClass F R (↥(adjoin R {a}).topologicalClosure) B
x : ↥(adjoin R {a})
⊢ ∀ (x : A) (h : x ∈ {a}), φ ((StarSubalgebra.inclusion ⋯) ⟨x, ⋯⟩) = ψ ((StarSubalgebra.inclusion ⋯) ⟨x, ⋯⟩)

case refine_2
R : Type u_1
A : Type u_2
B : Type u_3
inst✝¹⁶ : CommSemiring R
inst✝¹⁵ : StarRing R
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : Semiring A
inst✝¹² : StarRing A
inst✝¹¹ : TopologicalSemiring A
inst✝¹⁰ : ContinuousStar A
inst✝⁹ : Algebra R A
inst✝⁸ : StarModule R A
inst✝⁷ : TopologicalSpace B
inst✝⁶ : Semiring B
inst✝⁵ : StarRing B
inst✝⁴ : Algebra R B
inst✝³ : T2Space B
F : Type u_4
a : A
inst✝² : FunLike F (↥(elementalStarAlgebra R a)) B
inst✝¹ : AlgHomClass F R (↥(elementalStarAlgebra R a)) B
inst✝ : StarAlgHomClass F R (↥(elementalStarAlgebra R a)) B
φ ψ : F
hφ : Continuous ⇑φ
hψ : Continuous ⇑ψ
h : φ ⟨a, ⋯⟩ = ψ ⟨a, ⋯⟩
this : StarAlgHomClass F R (↥(adjoin R {a}).topologicalClosure) B
x : ↥(adjoin R {a})
⊢ ∀ (r : R),
    φ ((StarSubalgebra.inclusion ⋯) ((algebraMap R ↥(adjoin R {a})) r)) =
      ψ ((StarSubalgebra.inclusion ⋯) ((algebraMap R ↥(adjoin R {a})) r))

case refine_3
R : Type u_1
A : Type u_2
B : Type u_3
inst✝¹⁶ : CommSemiring R
inst✝¹⁵ : StarRing R
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : Semiring A
inst✝¹² : StarRing A
inst✝¹¹ : TopologicalSemiring A
inst✝¹⁰ : ContinuousStar A
inst✝⁹ : Algebra R A
inst✝⁸ : StarModule R A
inst✝⁷ : TopologicalSpace B
inst✝⁶ : Semiring B
inst✝⁵ : StarRing B
inst✝⁴ : Algebra R B
inst✝³ : T2Space B
F : Type u_4
a : A
inst✝² : FunLike F (↥(elementalStarAlgebra R a)) B
inst✝¹ : AlgHomClass F R (↥(elementalStarAlgebra R a)) B
inst✝ : StarAlgHomClass F R (↥(elementalStarAlgebra R a)) B
φ ψ : F
hφ : Continuous ⇑φ
hψ : Continuous ⇑ψ
h : φ ⟨a, ⋯⟩ = ψ ⟨a, ⋯⟩
this : StarAlgHomClass F R (↥(adjoin R {a}).topologicalClosure) B
x : ↥(adjoin R {a})
⊢ ∀ (x y : ↥(adjoin R {a})),
    φ ((StarSubalgebra.inclusion ⋯) x) = ψ ((StarSubalgebra.inclusion ⋯) x) →
      φ ((StarSubalgebra.inclusion ⋯) y) = ψ ((StarSubalgebra.inclusion ⋯) y) →
        φ ((StarSubalgebra.inclusion ⋯) (x + y)) = ψ ((StarSubalgebra.inclusion ⋯) (x + y))

case refine_4
R : Type u_1
A : Type u_2
B : Type u_3
inst✝¹⁶ : CommSemiring R
inst✝¹⁵ : StarRing R
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : Semiring A
inst✝¹² : StarRing A
inst✝¹¹ : TopologicalSemiring A
inst✝¹⁰ : ContinuousStar A
inst✝⁹ : Algebra R A
inst✝⁸ : StarModule R A
inst✝⁷ : TopologicalSpace B
inst✝⁶ : Semiring B
inst✝⁵ : StarRing B
inst✝⁴ : Algebra R B
inst✝³ : T2Space B
F : Type u_4
a : A
inst✝² : FunLike F (↥(elementalStarAlgebra R a)) B
inst✝¹ : AlgHomClass F R (↥(elementalStarAlgebra R a)) B
inst✝ : StarAlgHomClass F R (↥(elementalStarAlgebra R a)) B
φ ψ : F
hφ : Continuous ⇑φ
hψ : Continuous ⇑ψ
h : φ ⟨a, ⋯⟩ = ψ ⟨a, ⋯⟩
this : StarAlgHomClass F R (↥(adjoin R {a}).topologicalClosure) B
x : ↥(adjoin R {a})
⊢ ∀ (x y : ↥(adjoin R {a})),
    φ ((StarSubalgebra.inclusion ⋯) x) = ψ ((StarSubalgebra.inclusion ⋯) x) →
      φ ((StarSubalgebra.inclusion ⋯) y) = ψ ((StarSubalgebra.inclusion ⋯) y) →
        φ ((StarSubalgebra.inclusion ⋯) (x * y)) = ψ ((StarSubalgebra.inclusion ⋯) (x * y))

case refine_5
R : Type u_1
A : Type u_2
B : Type u_3
inst✝¹⁶ : CommSemiring R
inst✝¹⁵ : StarRing R
inst✝¹⁴ : TopologicalSpace A
inst✝¹³ : Semiring A
inst✝¹² : StarRing A
inst✝¹¹ : TopologicalSemiring A
inst✝¹⁰ : ContinuousStar A
inst✝⁹ : Algebra R A
inst✝⁸ : StarModule R A
inst✝⁷ : TopologicalSpace B
inst✝⁶ : Semiring B
inst✝⁵ : StarRing B
inst✝⁴ : Algebra R B
inst✝³ : T2Space B
F : Type u_4
a : A
inst✝² : FunLike F (↥(elementalStarAlgebra R a)) B
inst✝¹ : AlgHomClass F R (↥(elementalStarAlgebra R a)) B
inst✝ : StarAlgHomClass F R (↥(elementalStarAlgebra R a)) B
φ ψ : F
hφ : Continuous ⇑φ
hψ : Continuous ⇑ψ
h : φ ⟨a, ⋯⟩ = ψ ⟨a, ⋯⟩
this : StarAlgHomClass F R (↥(adjoin R {a}).topologicalClosure) B
x : ↥(adjoin R {a})
⊢ ∀ (x : ↥(adjoin R {a})),
    φ ((StarSubalgebra.inclusion ⋯) x) = ψ ((StarSubalgebra.inclusion ⋯) x) →
      φ ((StarSubalgebra.inclusion ⋯) (star x)) = ψ ((StarSubalgebra.inclusion ⋯) (star x))
state_after: no goals
tactic: exacts [fun y hy => by simpa only [Set.mem_singleton_iff.mp hy] using h, fun r => by
    simp only [AlgHomClass.commutes], fun x y hx hy => by simp only [map_add, hx, hy],
    fun x y hx hy => by simp only [map_mul, hx, hy], fun x hx => by simp only [map_star, hx]]