awhecmu/canonical-drafter-extract-mathlib huggingface dataset:
-- Module: Mathlib.Analysis.Calculus.ContDiff.Bounds
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
D : Type uD
inst_1 : NormedAddCommGroup D
inst_2 : NormedSpace 𝕜 D
E : Type uE
inst_3 : NormedAddCommGroup E
inst_4 : NormedSpace 𝕜 E
F : Type uF
inst_5 : NormedAddCommGroup F
inst_6 : NormedSpace 𝕜 F
G : Type uG
inst_7 : NormedAddCommGroup G
inst_8 : NormedSpace 𝕜 G
B : E →L[𝕜] F →L[𝕜] G
f : D → E
g : D → F
N : ℕ∞ω
s : Set D
x : D
hf : ContDiffOn 𝕜 N f s
hg : ContDiffOn 𝕜 N g s
hs : UniqueDiffOn 𝕜 s
hx : x ∈ s
n : ℕ
hn : (↑n : ℕ∞ω) ≤ N
Du : Type (max uD uE uF uG) := ULift.{max uE uF uG, uD} D
Eu : Type (max uD uE uF uG) := ULift.{max uD uF uG, uE} E
Fu : Type (max uD uE uF uG) := ULift.{max uD uE uG, uF} F
Gu : Type (max uD uE uF uG) := ULift.{max uD uE uF, uG} G
isoD : Du ≃ₗᵢ[𝕜] D
isoE : Eu ≃ₗᵢ[𝕜] E
isoF : Fu ≃ₗᵢ[𝕜] F
isoG : Gu ≃ₗᵢ[𝕜] G
fu : Du → Eu := (⇑isoE.symm : (a : E) → Eu) ∘ f ∘ (⇑isoD : (a : Du) → D)
gu : Du → Fu := (⇑isoF.symm : (a : F) → Fu) ∘ g ∘ (⇑isoD : (a : Du) → D)
Bu₀ : Eu →L[𝕜] Fu →L[𝕜] G :=
  flip
    (comp (σ₂₃ := RingHom.id 𝕜) (B ∘SL (↑(↑isoE : Eu ≃L[𝕜] E) : Eu →L[𝕜] E)).flip (↑(↑isoF : Fu ≃L[𝕜] F) : Fu →L[𝕜] F))
Bu : Eu →L[𝕜] Fu →L[𝕜] Gu :=
  (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
            (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
          ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
            (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
        (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
      (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
    Bu₀
hBu :
  Bu =
    (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
              (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
            ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
              (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
          (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
        (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
      Bu₀
Bu_eq :
  Eq (α := (y : Du) → Gu) (fun (y : Du) ↦ (((Bu : (a : Eu) → Fu →L[𝕜] Gu) (fu y) : Fu →L[𝕜] Gu) : (a : Fu) → Gu) (gu y))
    (Function.comp (β := G) (⇑isoG.symm : (a : G) → Gu)
      ((fun (y : D) ↦ (((B : (a : E) → F →L[𝕜] G) (f y) : F →L[𝕜] G) : (a : F) → G) (g y)) ∘ (⇑isoD : (a : Du) → D)))
⊢ ‖Bu‖ ≤ ‖B‖

Tactic:
have Bu_le : ‖Bu‖ ≤ ‖B‖ := by
    refine ContinuousLinearMap.opNorm_le_bound _ (norm_nonneg B) fun y => ?_
    refine ContinuousLinearMap.opNorm_le_bound _ (by positivity) fun x => ?_
    simp only [Eu, Fu, Gu, hBu, Bu₀, compL_apply, coe_comp', Function.comp_apply,
      ContinuousLinearEquiv.coe_coe, LinearIsometryEquiv.coe_coe, flip_apply,
      LinearIsometryEquiv.norm_map]
    calc
      ‖B (isoE y) (isoF x)‖ ≤ ‖B (isoE y)‖ * ‖isoF x‖ := ContinuousLinearMap.le_opNorm _ _
      _ ≤ ‖B‖ * ‖isoE y‖ * ‖isoF x‖ := by gcongr; apply ContinuousLinearMap.le_opNorm
      _ = ‖B‖ * ‖y‖ * ‖x‖ := by simp only [LinearIsometryEquiv.norm_map]
-- Module: Mathlib.Analysis.Calculus.ContDiff.Bounds
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
D : Type uD
inst_1 : NormedAddCommGroup D
inst_2 : NormedSpace 𝕜 D
E : Type uE
inst_3 : NormedAddCommGroup E
inst_4 : NormedSpace 𝕜 E
F : Type uF
inst_5 : NormedAddCommGroup F
inst_6 : NormedSpace 𝕜 F
G : Type uG
inst_7 : NormedAddCommGroup G
inst_8 : NormedSpace 𝕜 G
B : E →L[𝕜] F →L[𝕜] G
f : D → E
g : D → F
N : ℕ∞ω
s : Set D
x : D
hf : ContDiffOn 𝕜 N f s
hg : ContDiffOn 𝕜 N g s
hs : UniqueDiffOn 𝕜 s
hx : x ∈ s
n : ℕ
hn : (↑n : ℕ∞ω) ≤ N
Du : Type (max uD uE uF uG) := ULift.{max uE uF uG, uD} D
Eu : Type (max uD uE uF uG) := ULift.{max uD uF uG, uE} E
Fu : Type (max uD uE uF uG) := ULift.{max uD uE uG, uF} F
Gu : Type (max uD uE uF uG) := ULift.{max uD uE uF, uG} G
isoD : Du ≃ₗᵢ[𝕜] D
isoE : Eu ≃ₗᵢ[𝕜] E
isoF : Fu ≃ₗᵢ[𝕜] F
isoG : Gu ≃ₗᵢ[𝕜] G
fu : Du → Eu := (⇑isoE.symm : (a : E) → Eu) ∘ f ∘ (⇑isoD : (a : Du) → D)
gu : Du → Fu := (⇑isoF.symm : (a : F) → Fu) ∘ g ∘ (⇑isoD : (a : Du) → D)
Bu₀ : Eu →L[𝕜] Fu →L[𝕜] G :=
  flip
    (comp (σ₂₃ := RingHom.id 𝕜) (B ∘SL (↑(↑isoE : Eu ≃L[𝕜] E) : Eu →L[𝕜] E)).flip (↑(↑isoF : Fu ≃L[𝕜] F) : Fu →L[𝕜] F))
Bu : Eu →L[𝕜] Fu →L[𝕜] Gu :=
  (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
            (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
          ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
            (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
        (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
      (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
    Bu₀
hBu :
  Bu =
    (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
              (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
            ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
              (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
          (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
        (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
      Bu₀
Bu_eq :
  Eq (α := (y : Du) → Gu) (fun (y : Du) ↦ (((Bu : (a : Eu) → Fu →L[𝕜] Gu) (fu y) : Fu →L[𝕜] Gu) : (a : Fu) → Gu) (gu y))
    (Function.comp (β := G) (⇑isoG.symm : (a : G) → Gu)
      ((fun (y : D) ↦ (((B : (a : E) → F →L[𝕜] G) (f y) : F →L[𝕜] G) : (a : F) → G) (g y)) ∘ (⇑isoD : (a : Du) → D)))
Bu_le : ‖Bu‖ ≤ ‖B‖
su : Set Du := (⇑isoD : (a : Du) → D) ⁻¹' s
⊢ UniqueDiffOn 𝕜 su

Tactic:
have hsu : UniqueDiffOn 𝕜 su := isoD.toContinuousLinearEquiv.uniqueDiffOn_preimage_iff.2 hs
-- Module: Mathlib.Analysis.Calculus.ContDiff.Bounds
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
D : Type uD
inst_1 : NormedAddCommGroup D
inst_2 : NormedSpace 𝕜 D
E : Type uE
inst_3 : NormedAddCommGroup E
inst_4 : NormedSpace 𝕜 E
F : Type uF
inst_5 : NormedAddCommGroup F
inst_6 : NormedSpace 𝕜 F
G : Type uG
inst_7 : NormedAddCommGroup G
inst_8 : NormedSpace 𝕜 G
B : E →L[𝕜] F →L[𝕜] G
f : D → E
g : D → F
N : ℕ∞ω
s : Set D
x : D
hf : ContDiffOn 𝕜 N f s
hg : ContDiffOn 𝕜 N g s
hs : UniqueDiffOn 𝕜 s
hx : x ∈ s
n : ℕ
hn : (↑n : ℕ∞ω) ≤ N
Du : Type (max uD uE uF uG) := ULift.{max uE uF uG, uD} D
Eu : Type (max uD uE uF uG) := ULift.{max uD uF uG, uE} E
Fu : Type (max uD uE uF uG) := ULift.{max uD uE uG, uF} F
Gu : Type (max uD uE uF uG) := ULift.{max uD uE uF, uG} G
isoD : Du ≃ₗᵢ[𝕜] D
isoE : Eu ≃ₗᵢ[𝕜] E
isoF : Fu ≃ₗᵢ[𝕜] F
isoG : Gu ≃ₗᵢ[𝕜] G
fu : Du → Eu := (⇑isoE.symm : (a : E) → Eu) ∘ f ∘ (⇑isoD : (a : Du) → D)
gu : Du → Fu := (⇑isoF.symm : (a : F) → Fu) ∘ g ∘ (⇑isoD : (a : Du) → D)
Bu₀ : Eu →L[𝕜] Fu →L[𝕜] G :=
  flip
    (comp (σ₂₃ := RingHom.id 𝕜) (B ∘SL (↑(↑isoE : Eu ≃L[𝕜] E) : Eu →L[𝕜] E)).flip (↑(↑isoF : Fu ≃L[𝕜] F) : Fu →L[𝕜] F))
Bu : Eu →L[𝕜] Fu →L[𝕜] Gu :=
  (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
            (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
          ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
            (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
        (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
      (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
    Bu₀
hBu :
  Bu =
    (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
              (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
            ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
              (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
          (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
        (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
      Bu₀
Bu_eq :
  Eq (α := (y : Du) → Gu) (fun (y : Du) ↦ (((Bu : (a : Eu) → Fu →L[𝕜] Gu) (fu y) : Fu →L[𝕜] Gu) : (a : Fu) → Gu) (gu y))
    (Function.comp (β := G) (⇑isoG.symm : (a : G) → Gu)
      ((fun (y : D) ↦ (((B : (a : E) → F →L[𝕜] G) (f y) : F →L[𝕜] G) : (a : F) → G) (g y)) ∘ (⇑isoD : (a : Du) → D)))
Bu_le : ‖Bu‖ ≤ ‖B‖
su : Set Du := (⇑isoD : (a : Du) → D) ⁻¹' s
hsu : UniqueDiffOn 𝕜 su
xu : Du := (isoD.symm : (a : D) → Du) x
⊢ xu ∈ su

Tactic:
simpa only [xu, su, Set.mem_preimage, LinearIsometryEquiv.apply_symm_apply] using hx

Premises used: LinearIsometryEquiv.apply_symm_apply, Set.mem_preimage
-- Module: Mathlib.Analysis.Calculus.ContDiff.Bounds
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
D : Type uD
inst_1 : NormedAddCommGroup D
inst_2 : NormedSpace 𝕜 D
E : Type uE
inst_3 : NormedAddCommGroup E
inst_4 : NormedSpace 𝕜 E
F : Type uF
inst_5 : NormedAddCommGroup F
inst_6 : NormedSpace 𝕜 F
G : Type uG
inst_7 : NormedAddCommGroup G
inst_8 : NormedSpace 𝕜 G
B : E →L[𝕜] F →L[𝕜] G
f : D → E
g : D → F
N : ℕ∞ω
s : Set D
x : D
hf : ContDiffOn 𝕜 N f s
hg : ContDiffOn 𝕜 N g s
hs : UniqueDiffOn 𝕜 s
hx : x ∈ s
n : ℕ
hn : (↑n : ℕ∞ω) ≤ N
Du : Type (max uD uE uF uG) := ULift.{max uE uF uG, uD} D
Eu : Type (max uD uE uF uG) := ULift.{max uD uF uG, uE} E
Fu : Type (max uD uE uF uG) := ULift.{max uD uE uG, uF} F
Gu : Type (max uD uE uF uG) := ULift.{max uD uE uF, uG} G
isoD : Du ≃ₗᵢ[𝕜] D
isoE : Eu ≃ₗᵢ[𝕜] E
isoF : Fu ≃ₗᵢ[𝕜] F
isoG : Gu ≃ₗᵢ[𝕜] G
fu : Du → Eu := (⇑isoE.symm : (a : E) → Eu) ∘ f ∘ (⇑isoD : (a : Du) → D)
gu : Du → Fu := (⇑isoF.symm : (a : F) → Fu) ∘ g ∘ (⇑isoD : (a : Du) → D)
Bu₀ : Eu →L[𝕜] Fu →L[𝕜] G :=
  flip
    (comp (σ₂₃ := RingHom.id 𝕜) (B ∘SL (↑(↑isoE : Eu ≃L[𝕜] E) : Eu →L[𝕜] E)).flip (↑(↑isoF : Fu ≃L[𝕜] F) : Fu →L[𝕜] F))
Bu : Eu →L[𝕜] Fu →L[𝕜] Gu :=
  (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
            (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
          ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
            (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
        (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
      (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
    Bu₀
hBu :
  Bu =
    (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
              (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
            ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
              (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
          (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
        (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
      Bu₀
Bu_eq :
  Eq (α := (y : Du) → Gu) (fun (y : Du) ↦ (((Bu : (a : Eu) → Fu →L[𝕜] Gu) (fu y) : Fu →L[𝕜] Gu) : (a : Fu) → Gu) (gu y))
    (Function.comp (β := G) (⇑isoG.symm : (a : G) → Gu)
      ((fun (y : D) ↦ (((B : (a : E) → F →L[𝕜] G) (f y) : F →L[𝕜] G) : (a : F) → G) (g y)) ∘ (⇑isoD : (a : Du) → D)))
Bu_le : ‖Bu‖ ≤ ‖B‖
su : Set Du := (⇑isoD : (a : Du) → D) ⁻¹' s
hsu : UniqueDiffOn 𝕜 su
xu : Du := (isoD.symm : (a : D) → Du) x
⊢ xu ∈ su

Tactic:
have hxu : xu ∈ su := by
    simpa only [xu, su, Set.mem_preimage, LinearIsometryEquiv.apply_symm_apply] using hx
-- Module: Mathlib.Analysis.Calculus.ContDiff.Bounds
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
D : Type uD
inst_1 : NormedAddCommGroup D
inst_2 : NormedSpace 𝕜 D
E : Type uE
inst_3 : NormedAddCommGroup E
inst_4 : NormedSpace 𝕜 E
F : Type uF
inst_5 : NormedAddCommGroup F
inst_6 : NormedSpace 𝕜 F
G : Type uG
inst_7 : NormedAddCommGroup G
inst_8 : NormedSpace 𝕜 G
B : E →L[𝕜] F →L[𝕜] G
f : D → E
g : D → F
N : ℕ∞ω
s : Set D
x : D
hf : ContDiffOn 𝕜 N f s
hg : ContDiffOn 𝕜 N g s
hs : UniqueDiffOn 𝕜 s
hx : x ∈ s
n : ℕ
hn : (↑n : ℕ∞ω) ≤ N
Du : Type (max uD uE uF uG) := ULift.{max uE uF uG, uD} D
Eu : Type (max uD uE uF uG) := ULift.{max uD uF uG, uE} E
Fu : Type (max uD uE uF uG) := ULift.{max uD uE uG, uF} F
Gu : Type (max uD uE uF uG) := ULift.{max uD uE uF, uG} G
isoD : Du ≃ₗᵢ[𝕜] D
isoE : Eu ≃ₗᵢ[𝕜] E
isoF : Fu ≃ₗᵢ[𝕜] F
isoG : Gu ≃ₗᵢ[𝕜] G
fu : Du → Eu := (⇑isoE.symm : (a : E) → Eu) ∘ f ∘ (⇑isoD : (a : Du) → D)
gu : Du → Fu := (⇑isoF.symm : (a : F) → Fu) ∘ g ∘ (⇑isoD : (a : Du) → D)
Bu₀ : Eu →L[𝕜] Fu →L[𝕜] G :=
  flip
    (comp (σ₂₃ := RingHom.id 𝕜) (B ∘SL (↑(↑isoE : Eu ≃L[𝕜] E) : Eu →L[𝕜] E)).flip (↑(↑isoF : Fu ≃L[𝕜] F) : Fu →L[𝕜] F))
Bu : Eu →L[𝕜] Fu →L[𝕜] Gu :=
  (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
            (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
          ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
            (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
        (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
      (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
    Bu₀
hBu :
  Bu =
    (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
              (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
            ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
              (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
          (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
        (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
      Bu₀
Bu_eq :
  Eq (α := (y : Du) → Gu) (fun (y : Du) ↦ (((Bu : (a : Eu) → Fu →L[𝕜] Gu) (fu y) : Fu →L[𝕜] Gu) : (a : Fu) → Gu) (gu y))
    (Function.comp (β := G) (⇑isoG.symm : (a : G) → Gu)
      ((fun (y : D) ↦ (((B : (a : E) → F →L[𝕜] G) (f y) : F →L[𝕜] G) : (a : F) → G) (g y)) ∘ (⇑isoD : (a : Du) → D)))
Bu_le : ‖Bu‖ ≤ ‖B‖
su : Set Du := (⇑isoD : (a : Du) → D) ⁻¹' s
hsu : UniqueDiffOn 𝕜 su
xu : Du := (isoD.symm : (a : D) → Du) x
hxu : xu ∈ su
⊢ (isoD : (a : Du) → D) xu = x

Tactic:
simp only [xu, LinearIsometryEquiv.apply_symm_apply]

Premises used: LinearIsometryEquiv.apply_symm_apply
-- Module: Mathlib.Analysis.Calculus.ContDiff.Bounds
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
D : Type uD
inst_1 : NormedAddCommGroup D
inst_2 : NormedSpace 𝕜 D
E : Type uE
inst_3 : NormedAddCommGroup E
inst_4 : NormedSpace 𝕜 E
F : Type uF
inst_5 : NormedAddCommGroup F
inst_6 : NormedSpace 𝕜 F
G : Type uG
inst_7 : NormedAddCommGroup G
inst_8 : NormedSpace 𝕜 G
B : E →L[𝕜] F →L[𝕜] G
f : D → E
g : D → F
N : ℕ∞ω
s : Set D
x : D
hf : ContDiffOn 𝕜 N f s
hg : ContDiffOn 𝕜 N g s
hs : UniqueDiffOn 𝕜 s
hx : x ∈ s
n : ℕ
hn : (↑n : ℕ∞ω) ≤ N
Du : Type (max uD uE uF uG) := ULift.{max uE uF uG, uD} D
Eu : Type (max uD uE uF uG) := ULift.{max uD uF uG, uE} E
Fu : Type (max uD uE uF uG) := ULift.{max uD uE uG, uF} F
Gu : Type (max uD uE uF uG) := ULift.{max uD uE uF, uG} G
isoD : Du ≃ₗᵢ[𝕜] D
isoE : Eu ≃ₗᵢ[𝕜] E
isoF : Fu ≃ₗᵢ[𝕜] F
isoG : Gu ≃ₗᵢ[𝕜] G
fu : Du → Eu := (⇑isoE.symm : (a : E) → Eu) ∘ f ∘ (⇑isoD : (a : Du) → D)
gu : Du → Fu := (⇑isoF.symm : (a : F) → Fu) ∘ g ∘ (⇑isoD : (a : Du) → D)
Bu₀ : Eu →L[𝕜] Fu →L[𝕜] G :=
  flip
    (comp (σ₂₃ := RingHom.id 𝕜) (B ∘SL (↑(↑isoE : Eu ≃L[𝕜] E) : Eu →L[𝕜] E)).flip (↑(↑isoF : Fu ≃L[𝕜] F) : Fu →L[𝕜] F))
Bu : Eu →L[𝕜] Fu →L[𝕜] Gu :=
  (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
            (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
          ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
            (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
        (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
      (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
    Bu₀
hBu :
  Bu =
    (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
              (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
            ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
              (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
          (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
        (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
      Bu₀
Bu_eq :
  Eq (α := (y : Du) → Gu) (fun (y : Du) ↦ (((Bu : (a : Eu) → Fu →L[𝕜] Gu) (fu y) : Fu →L[𝕜] Gu) : (a : Fu) → Gu) (gu y))
    (Function.comp (β := G) (⇑isoG.symm : (a : G) → Gu)
      ((fun (y : D) ↦ (((B : (a : E) → F →L[𝕜] G) (f y) : F →L[𝕜] G) : (a : F) → G) (g y)) ∘ (⇑isoD : (a : Du) → D)))
Bu_le : ‖Bu‖ ≤ ‖B‖
su : Set Du := (⇑isoD : (a : Du) → D) ⁻¹' s
hsu : UniqueDiffOn 𝕜 su
xu : Du := (isoD.symm : (a : D) → Du) x
hxu : xu ∈ su
⊢ (isoD : (a : Du) → D) xu = x

Tactic:
have xu_x : isoD xu = x := by simp only [xu, LinearIsometryEquiv.apply_symm_apply]
-- Module: Mathlib.Analysis.Calculus.ContDiff.Bounds
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
D : Type uD
inst_1 : NormedAddCommGroup D
inst_2 : NormedSpace 𝕜 D
E : Type uE
inst_3 : NormedAddCommGroup E
inst_4 : NormedSpace 𝕜 E
F : Type uF
inst_5 : NormedAddCommGroup F
inst_6 : NormedSpace 𝕜 F
G : Type uG
inst_7 : NormedAddCommGroup G
inst_8 : NormedSpace 𝕜 G
B : E →L[𝕜] F →L[𝕜] G
f : D → E
g : D → F
N : ℕ∞ω
s : Set D
x : D
hf : ContDiffOn 𝕜 N f s
hg : ContDiffOn 𝕜 N g s
hs : UniqueDiffOn 𝕜 s
hx : x ∈ s
n : ℕ
hn : (↑n : ℕ∞ω) ≤ N
Du : Type (max uD uE uF uG) := ULift.{max uE uF uG, uD} D
Eu : Type (max uD uE uF uG) := ULift.{max uD uF uG, uE} E
Fu : Type (max uD uE uF uG) := ULift.{max uD uE uG, uF} F
Gu : Type (max uD uE uF uG) := ULift.{max uD uE uF, uG} G
isoD : Du ≃ₗᵢ[𝕜] D
isoE : Eu ≃ₗᵢ[𝕜] E
isoF : Fu ≃ₗᵢ[𝕜] F
isoG : Gu ≃ₗᵢ[𝕜] G
fu : Du → Eu := (⇑isoE.symm : (a : E) → Eu) ∘ f ∘ (⇑isoD : (a : Du) → D)
gu : Du → Fu := (⇑isoF.symm : (a : F) → Fu) ∘ g ∘ (⇑isoD : (a : Du) → D)
Bu₀ : Eu →L[𝕜] Fu →L[𝕜] G :=
  flip
    (comp (σ₂₃ := RingHom.id 𝕜) (B ∘SL (↑(↑isoE : Eu ≃L[𝕜] E) : Eu →L[𝕜] E)).flip (↑(↑isoF : Fu ≃L[𝕜] F) : Fu →L[𝕜] F))
Bu : Eu →L[𝕜] Fu →L[𝕜] Gu :=
  (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
            (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
          ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
            (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
        (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
      (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
    Bu₀
hBu :
  Bu =
    (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
              (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
            ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
              (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
          (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
        (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
      Bu₀
Bu_eq :
  Eq (α := (y : Du) → Gu) (fun (y : Du) ↦ (((Bu : (a : Eu) → Fu →L[𝕜] Gu) (fu y) : Fu →L[𝕜] Gu) : (a : Fu) → Gu) (gu y))
    (Function.comp (β := G) (⇑isoG.symm : (a : G) → Gu)
      ((fun (y : D) ↦ (((B : (a : E) → F →L[𝕜] G) (f y) : F →L[𝕜] G) : (a : F) → G) (g y)) ∘ (⇑isoD : (a : Du) → D)))
Bu_le : ‖Bu‖ ≤ ‖B‖
su : Set Du := (⇑isoD : (a : Du) → D) ⁻¹' s
hsu : UniqueDiffOn 𝕜 su
xu : Du := (isoD.symm : (a : D) → Du) x
hxu : xu ∈ su
xu_x : (isoD : (a : Du) → D) xu = x
⊢ ContDiffOn 𝕜 (↑n : ℕ∞ω) fu su

Tactic:
have hfu : ContDiffOn 𝕜 n fu su :=
    isoE.symm.contDiff.comp_contDiffOn
      ((hf.of_le hn).comp_continuousLinearMap (isoD : Du →L[𝕜] D))
-- Module: Mathlib.Analysis.Calculus.ContDiff.Bounds
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
D : Type uD
inst_1 : NormedAddCommGroup D
inst_2 : NormedSpace 𝕜 D
E : Type uE
inst_3 : NormedAddCommGroup E
inst_4 : NormedSpace 𝕜 E
F : Type uF
inst_5 : NormedAddCommGroup F
inst_6 : NormedSpace 𝕜 F
G : Type uG
inst_7 : NormedAddCommGroup G
inst_8 : NormedSpace 𝕜 G
B : E →L[𝕜] F →L[𝕜] G
f : D → E
g : D → F
N : ℕ∞ω
s : Set D
x : D
hf : ContDiffOn 𝕜 N f s
hg : ContDiffOn 𝕜 N g s
hs : UniqueDiffOn 𝕜 s
hx : x ∈ s
n : ℕ
hn : (↑n : ℕ∞ω) ≤ N
Du : Type (max uD uE uF uG) := ULift.{max uE uF uG, uD} D
Eu : Type (max uD uE uF uG) := ULift.{max uD uF uG, uE} E
Fu : Type (max uD uE uF uG) := ULift.{max uD uE uG, uF} F
Gu : Type (max uD uE uF uG) := ULift.{max uD uE uF, uG} G
isoD : Du ≃ₗᵢ[𝕜] D
isoE : Eu ≃ₗᵢ[𝕜] E
isoF : Fu ≃ₗᵢ[𝕜] F
isoG : Gu ≃ₗᵢ[𝕜] G
fu : Du → Eu := (⇑isoE.symm : (a : E) → Eu) ∘ f ∘ (⇑isoD : (a : Du) → D)
gu : Du → Fu := (⇑isoF.symm : (a : F) → Fu) ∘ g ∘ (⇑isoD : (a : Du) → D)
Bu₀ : Eu →L[𝕜] Fu →L[𝕜] G :=
  flip
    (comp (σ₂₃ := RingHom.id 𝕜) (B ∘SL (↑(↑isoE : Eu ≃L[𝕜] E) : Eu →L[𝕜] E)).flip (↑(↑isoF : Fu ≃L[𝕜] F) : Fu →L[𝕜] F))
Bu : Eu →L[𝕜] Fu →L[𝕜] Gu :=
  (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
            (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
          ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
            (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
        (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
      (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
    Bu₀
hBu :
  Bu =
    (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
              (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
            ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
              (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
          (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
        (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
      Bu₀
Bu_eq :
  Eq (α := (y : Du) → Gu) (fun (y : Du) ↦ (((Bu : (a : Eu) → Fu →L[𝕜] Gu) (fu y) : Fu →L[𝕜] Gu) : (a : Fu) → Gu) (gu y))
    (Function.comp (β := G) (⇑isoG.symm : (a : G) → Gu)
      ((fun (y : D) ↦ (((B : (a : E) → F →L[𝕜] G) (f y) : F →L[𝕜] G) : (a : F) → G) (g y)) ∘ (⇑isoD : (a : Du) → D)))
Bu_le : ‖Bu‖ ≤ ‖B‖
su : Set Du := (⇑isoD : (a : Du) → D) ⁻¹' s
hsu : UniqueDiffOn 𝕜 su
xu : Du := (isoD.symm : (a : D) → Du) x
hxu : xu ∈ su
xu_x : (isoD : (a : Du) → D) xu = x
hfu : ContDiffOn 𝕜 (↑n : ℕ∞ω) fu su
⊢ ContDiffOn 𝕜 (↑n : ℕ∞ω) gu su

Tactic:
have hgu : ContDiffOn 𝕜 n gu su :=
    isoF.symm.contDiff.comp_contDiffOn
      ((hg.of_le hn).comp_continuousLinearMap (isoD : Du →L[𝕜] D))
-- Module: Mathlib.Analysis.Calculus.ContDiff.Bounds
Goal:
𝕜 : Type u_1
inst : NontriviallyNormedField 𝕜
D : Type uD
inst_1 : NormedAddCommGroup D
inst_2 : NormedSpace 𝕜 D
E : Type uE
inst_3 : NormedAddCommGroup E
inst_4 : NormedSpace 𝕜 E
F : Type uF
inst_5 : NormedAddCommGroup F
inst_6 : NormedSpace 𝕜 F
G : Type uG
inst_7 : NormedAddCommGroup G
inst_8 : NormedSpace 𝕜 G
B : E →L[𝕜] F →L[𝕜] G
f : D → E
g : D → F
N : ℕ∞ω
s : Set D
x : D
hf : ContDiffOn 𝕜 N f s
hg : ContDiffOn 𝕜 N g s
hs : UniqueDiffOn 𝕜 s
hx : x ∈ s
n : ℕ
hn : (↑n : ℕ∞ω) ≤ N
Du : Type (max uD uE uF uG) := ULift.{max uE uF uG, uD} D
Eu : Type (max uD uE uF uG) := ULift.{max uD uF uG, uE} E
Fu : Type (max uD uE uF uG) := ULift.{max uD uE uG, uF} F
Gu : Type (max uD uE uF uG) := ULift.{max uD uE uF, uG} G
isoD : Du ≃ₗᵢ[𝕜] D
isoE : Eu ≃ₗᵢ[𝕜] E
isoF : Fu ≃ₗᵢ[𝕜] F
isoG : Gu ≃ₗᵢ[𝕜] G
fu : Du → Eu := (⇑isoE.symm : (a : E) → Eu) ∘ f ∘ (⇑isoD : (a : Du) → D)
gu : Du → Fu := (⇑isoF.symm : (a : F) → Fu) ∘ g ∘ (⇑isoD : (a : Du) → D)
Bu₀ : Eu →L[𝕜] Fu →L[𝕜] G :=
  flip
    (comp (σ₂₃ := RingHom.id 𝕜) (B ∘SL (↑(↑isoE : Eu ≃L[𝕜] E) : Eu →L[𝕜] E)).flip (↑(↑isoF : Fu ≃L[𝕜] F) : Fu →L[𝕜] F))
Bu : Eu →L[𝕜] Fu →L[𝕜] Gu :=
  (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
            (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
          ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
            (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
        (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
      (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
    Bu₀
hBu :
  Bu =
    (((compL 𝕜 Eu (Fu →L[𝕜] G) (Fu →L[𝕜] Gu) :
              (a : (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu) → (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu)
            ((compL 𝕜 Fu G Gu : (a : G →L[𝕜] Gu) → (Fu →L[𝕜] G) →L[𝕜] Fu →L[𝕜] Gu)
              (↑(↑isoG.symm : G ≃L[𝕜] Gu) : G →L[𝕜] Gu)) :
          (Eu →L[𝕜] Fu →L[𝕜] G) →L[𝕜] Eu →L[𝕜] Fu →L[𝕜] Gu) :
        (a : Eu →L[𝕜] Fu →L[𝕜] G) → Eu →L[𝕜] Fu →L[𝕜] Gu)
      Bu₀
Bu_eq :
  Eq (α := (y : Du) → Gu) (fun (y : Du) ↦ (((Bu : (a : Eu) → Fu →L[𝕜] Gu) (fu y) : Fu →L[𝕜] Gu) : (a : Fu) → Gu) (gu y))
    (Function.comp (β := G) (⇑isoG.symm : (a : G) → Gu)
      ((fun (y : D) ↦ (((B : (a : E) → F →L[𝕜] G) (f y) : F →L[𝕜] G) : (a : F) → G) (g y)) ∘ (⇑isoD : (a : Du) → D)))
Bu_le : ‖Bu‖ ≤ ‖B‖
su : Set Du := (⇑isoD : (a : Du) → D) ⁻¹' s
hsu : UniqueDiffOn 𝕜 su
xu : Du := (isoD.symm : (a : D) → Du) x
hxu : xu ∈ su
xu_x : (isoD : (a : Du) → D) xu = x
hfu : ContDiffOn 𝕜 (↑n : ℕ∞ω) fu su
hgu : ContDiffOn 𝕜 (↑n : ℕ∞ω) gu su
i : ℕ
hx₁ : Membership.mem (α := D) s ((isoD : (a : Du) → D) xu : D)
⊢ norm (E := ContinuousMultilinearMap 𝕜 (fun (i : Fin i) ↦ Du) E)
      (iteratedFDerivWithin 𝕜 i (f ∘ (⇑isoD : (a : Du) → D)) su xu) =
    norm (E := ContinuousMultilinearMap.{u_1, 0, uD, uE} 𝕜 (fun (i : Fin i) ↦ D) E) (iteratedFDerivWithin 𝕜 i f s x)

Tactic:
rw [LinearIsometryEquiv.norm_iteratedFDerivWithin_comp_right _ _ hs, xu_x]

Premises used: LinearIsometryEquiv.norm_iteratedFDerivWithin_comp_right