Theorem: OmegaCompletePartialOrder.ContinuousHom.flip_apply
File: Mathlib/Order/OmegaCompletePartialOrder.lean

Proof steps:
state_before: α✝ : Type u
α' : Type u_1
β : Type v
β' : Type u_2
γ : Type u_3
φ : Type u_4
inst✝⁵ : OmegaCompletePartialOrder α✝
inst✝⁴ : OmegaCompletePartialOrder β
inst✝³ : OmegaCompletePartialOrder γ
inst✝² : OmegaCompletePartialOrder φ
inst✝¹ : OmegaCompletePartialOrder α'
inst✝ : OmegaCompletePartialOrder β'
α : Type u_5
f : α → β →𝒄 γ
⊢ Continuous { toFun := fun x y => (f y) x, monotone' := ⋯ }
state_after: α✝ : Type u
α' : Type u_1
β : Type v
β' : Type u_2
γ : Type u_3
φ : Type u_4
inst✝⁵ : OmegaCompletePartialOrder α✝
inst✝⁴ : OmegaCompletePartialOrder β
inst✝³ : OmegaCompletePartialOrder γ
inst✝² : OmegaCompletePartialOrder φ
inst✝¹ : OmegaCompletePartialOrder α'
inst✝ : OmegaCompletePartialOrder β'
α : Type u_5
f : α → β →𝒄 γ
c✝ : Chain β
⊢ { toFun := fun x y => (f y) x, monotone' := ⋯ } (ωSup c✝) =
    ωSup (c✝.map { toFun := fun x y => (f y) x, monotone' := ⋯ })
tactic: intro _
state_before: α✝ : Type u
α' : Type u_1
β : Type v
β' : Type u_2
γ : Type u_3
φ : Type u_4
inst✝⁵ : OmegaCompletePartialOrder α✝
inst✝⁴ : OmegaCompletePartialOrder β
inst✝³ : OmegaCompletePartialOrder γ
inst✝² : OmegaCompletePartialOrder φ
inst✝¹ : OmegaCompletePartialOrder α'
inst✝ : OmegaCompletePartialOrder β'
α : Type u_5
f : α → β →𝒄 γ
c✝ : Chain β
⊢ { toFun := fun x y => (f y) x, monotone' := ⋯ } (ωSup c✝) =
    ωSup (c✝.map { toFun := fun x y => (f y) x, monotone' := ⋯ })
state_after: case h
α✝ : Type u
α' : Type u_1
β : Type v
β' : Type u_2
γ : Type u_3
φ : Type u_4
inst✝⁵ : OmegaCompletePartialOrder α✝
inst✝⁴ : OmegaCompletePartialOrder β
inst✝³ : OmegaCompletePartialOrder γ
inst✝² : OmegaCompletePartialOrder φ
inst✝¹ : OmegaCompletePartialOrder α'
inst✝ : OmegaCompletePartialOrder β'
α : Type u_5
f : α → β →𝒄 γ
c✝ : Chain β
x : α
⊢ { toFun := fun x y => (f y) x, monotone' := ⋯ } (ωSup c✝) x =
    ωSup (c✝.map { toFun := fun x y => (f y) x, monotone' := ⋯ }) x
tactic: ext x
state_before: case h
α✝ : Type u
α' : Type u_1
β : Type v
β' : Type u_2
γ : Type u_3
φ : Type u_4
inst✝⁵ : OmegaCompletePartialOrder α✝
inst✝⁴ : OmegaCompletePartialOrder β
inst✝³ : OmegaCompletePartialOrder γ
inst✝² : OmegaCompletePartialOrder φ
inst✝¹ : OmegaCompletePartialOrder α'
inst✝ : OmegaCompletePartialOrder β'
α : Type u_5
f : α → β →𝒄 γ
c✝ : Chain β
x : α
⊢ { toFun := fun x y => (f y) x, monotone' := ⋯ } (ωSup c✝) x =
    ωSup (c✝.map { toFun := fun x y => (f y) x, monotone' := ⋯ }) x
state_after: case h
α✝ : Type u
α' : Type u_1
β : Type v
β' : Type u_2
γ : Type u_3
φ : Type u_4
inst✝⁵ : OmegaCompletePartialOrder α✝
inst✝⁴ : OmegaCompletePartialOrder β
inst✝³ : OmegaCompletePartialOrder γ
inst✝² : OmegaCompletePartialOrder φ
inst✝¹ : OmegaCompletePartialOrder α'
inst✝ : OmegaCompletePartialOrder β'
α : Type u_5
f : α → β →𝒄 γ
c✝ : Chain β
x : α
⊢ (f x) (ωSup c✝) = ωSup (c✝.map { toFun := fun x y => (f y) x, monotone' := ⋯ }) x
tactic: change f _ _ = _
state_before: case h
α✝ : Type u
α' : Type u_1
β : Type v
β' : Type u_2
γ : Type u_3
φ : Type u_4
inst✝⁵ : OmegaCompletePartialOrder α✝
inst✝⁴ : OmegaCompletePartialOrder β
inst✝³ : OmegaCompletePartialOrder γ
inst✝² : OmegaCompletePartialOrder φ
inst✝¹ : OmegaCompletePartialOrder α'
inst✝ : OmegaCompletePartialOrder β'
α : Type u_5
f : α → β →𝒄 γ
c✝ : Chain β
x : α
⊢ (f x) (ωSup c✝) = ωSup (c✝.map { toFun := fun x y => (f y) x, monotone' := ⋯ }) x
state_after: case h
α✝ : Type u
α' : Type u_1
β : Type v
β' : Type u_2
γ : Type u_3
φ : Type u_4
inst✝⁵ : OmegaCompletePartialOrder α✝
inst✝⁴ : OmegaCompletePartialOrder β
inst✝³ : OmegaCompletePartialOrder γ
inst✝² : OmegaCompletePartialOrder φ
inst✝¹ : OmegaCompletePartialOrder α'
inst✝ : OmegaCompletePartialOrder β'
α : Type u_5
f : α → β →𝒄 γ
c✝ : Chain β
x : α
⊢ ωSup (c✝.map ↑(f x)) = ωSup (c✝.map { toFun := fun x y => (f y) x, monotone' := ⋯ }) x
tactic: rw [(f _).continuous]
state_before: case h
α✝ : Type u
α' : Type u_1
β : Type v
β' : Type u_2
γ : Type u_3
φ : Type u_4
inst✝⁵ : OmegaCompletePartialOrder α✝
inst✝⁴ : OmegaCompletePartialOrder β
inst✝³ : OmegaCompletePartialOrder γ
inst✝² : OmegaCompletePartialOrder φ
inst✝¹ : OmegaCompletePartialOrder α'
inst✝ : OmegaCompletePartialOrder β'
α : Type u_5
f : α → β →𝒄 γ
c✝ : Chain β
x : α
⊢ ωSup (c✝.map ↑(f x)) = ωSup (c✝.map { toFun := fun x y => (f y) x, monotone' := ⋯ }) x
state_after: no goals
tactic: rfl