Theorem: MeasureTheory.snorm_le_snorm_fderiv_of_eq
File: Mathlib/Analysis/FunctionalSpaces/SobolevInequality.lean

tactic: let F' := EuclideanSpace ℝ <| Fin <| finrank ℝ F
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F' : Type u_5
inst✝³ : NormedAddCommGroup F'
inst✝² : InnerProductSpace ℝ F'
inst✝¹ : CompleteSpace F'
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ
state_after: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ

tactic: let e : F ≃L[ℝ] F' := toEuclidean
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ
state_after: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ

tactic: let C₁ : ℝ≥0 := ‖(e.symm : F' →L[ℝ] F)‖₊
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ
state_after: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ

tactic: let C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ p
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ
state_after: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ

tactic: let C₂ : ℝ≥0 := ‖(e : F →L[ℝ] F')‖₊
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ
state_after: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ

tactic: let v := e ∘ u
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ
state_after: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ

tactic: have hv : ContDiff ℝ 1 v := e.contDiff.comp hu
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ
state_after: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ

tactic: have h2v : HasCompactSupport v := h2u.comp_left e.map_zero
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ
state_after: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ

tactic: have := snorm_le_snorm_fderiv_of_eq_inner μ hv h2v hp hn hp'
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ
state_after: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ

tactic: have h4v : ∀ x, ‖fderiv ℝ v x‖ ≤ C₂ * ‖fderiv ℝ u x‖ := fun x ↦ calc
  ‖fderiv ℝ v x‖
    = ‖(fderiv ℝ e (u x)).comp (fderiv ℝ u x)‖ := by
    rw [fderiv.comp x e.differentiableAt (hu.differentiable le_rfl x)]
  _ ≤ ‖fderiv ℝ e (u x)‖ * ‖fderiv ℝ u x‖ :=
    (fderiv ℝ e (u x)).opNorm_comp_le (fderiv ℝ u x)
  _ = C₂ * ‖fderiv ℝ u x‖ := by simp_rw [e.fderiv, C₂, coe_nnnorm]
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ
state_after: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ

tactic: calc snorm u p' μ
    = snorm (e.symm ∘ v) p' μ := by simp_rw [v, Function.comp, e.symm_apply_apply]
  _ ≤ C₁ • snorm v p' μ := by
    apply snorm_le_nnreal_smul_snorm_of_ae_le_mul
    exact eventually_of_forall (fun x ↦ (e.symm : F' →L[ℝ] F).le_opNNNorm _)
  _ = C₁ * snorm v p' μ := rfl
  _ ≤ C₁ * C * snorm (fderiv ℝ v) p μ := by rw [mul_assoc]; gcongr
  _ ≤ C₁ * C * (C₂ * snorm (fderiv ℝ u) p μ) := by
    gcongr; exact snorm_le_nnreal_smul_snorm_of_ae_le_mul (eventually_of_forall h4v) p
  _ = SNormLESNormFDerivOfEqConst F μ p * snorm (fderiv ℝ u) p μ := by
    simp_rw [SNormLESNormFDerivOfEqConst]
    push_cast
    simp_rw [mul_assoc]
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ snorm u (↑p') μ ≤ ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ
state_after: no goals

tactic: rw [fderiv.comp x e.differentiableAt (hu.differentiable le_rfl x)]
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
x : E
⊢ ‖fderiv ℝ v x‖ = ‖(fderiv ℝ (⇑e) (u x)).comp (fderiv ℝ u x)‖
state_after: no goals

tactic: simp_rw [e.fderiv, C₂, coe_nnnorm]
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
x : E
⊢ ‖fderiv ℝ (⇑e) (u x)‖ * ‖fderiv ℝ u x‖ = ↑C₂ * ‖fderiv ℝ u x‖
state_after: no goals

tactic: simp_rw [v, Function.comp, e.symm_apply_apply]
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ snorm u (↑p') μ = snorm (⇑e.symm ∘ v) (↑p') μ
state_after: no goals

tactic: apply snorm_le_nnreal_smul_snorm_of_ae_le_mul
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ snorm (⇑e.symm ∘ v) (↑p') μ ≤ C₁ • snorm v (↑p') μ
state_after: case h
ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ ∀ᵐ (x : E) ∂μ, ‖(⇑e.symm ∘ v) x‖₊ ≤ C₁ * ‖v x‖₊

tactic: exact eventually_of_forall (fun x ↦ (e.symm : F' →L[ℝ] F).le_opNNNorm _)
state_before: case h
ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ ∀ᵐ (x : E) ∂μ, ‖(⇑e.symm ∘ v) x‖₊ ≤ C₁ * ‖v x‖₊
state_after: no goals

tactic: rw [mul_assoc]
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ ↑C₁ * snorm v (↑p') μ ≤ ↑C₁ * ↑C * snorm (fderiv ℝ v) (↑p) μ
state_after: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ ↑C₁ * snorm v (↑p') μ ≤ ↑C₁ * (↑C * snorm (fderiv ℝ v) (↑p) μ)

tactic: gcongr
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ ↑C₁ * snorm v (↑p') μ ≤ ↑C₁ * (↑C * snorm (fderiv ℝ v) (↑p) μ)
state_after: no goals

tactic: gcongr
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ ↑C₁ * ↑C * snorm (fderiv ℝ v) (↑p) μ ≤ ↑C₁ * ↑C * (↑C₂ * snorm (fderiv ℝ u) (↑p) μ)
state_after: case bc
ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ snorm (fderiv ℝ v) (↑p) μ ≤ ↑C₂ * snorm (fderiv ℝ u) (↑p) μ

tactic: exact snorm_le_nnreal_smul_snorm_of_ae_le_mul (eventually_of_forall h4v) p
state_before: case bc
ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ snorm (fderiv ℝ v) (↑p) μ ≤ ↑C₂ * snorm (fderiv ℝ u) (↑p) μ
state_after: no goals

tactic: simp_rw [SNormLESNormFDerivOfEqConst]
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ ↑C₁ * ↑C * (↑C₂ * snorm (fderiv ℝ u) (↑p) μ) = ↑(SNormLESNormFDerivOfEqConst F μ ↑p) * snorm (fderiv ℝ u) (↑p) μ
state_after: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ ↑C₁ * ↑C * (↑C₂ * snorm (fderiv ℝ u) (↑p) μ) =
    ↑(‖↑toEuclidean.symm‖₊ * snormLESNormFDerivOfEqInnerConst μ ↑p * ‖↑toEuclidean‖₊) * snorm (fderiv ℝ u) (↑p) μ

tactic: push_cast
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ ↑C₁ * ↑C * (↑C₂ * snorm (fderiv ℝ u) (↑p) μ) =
    ↑(‖↑toEuclidean.symm‖₊ * snormLESNormFDerivOfEqInnerConst μ ↑p * ‖↑toEuclidean‖₊) * snorm (fderiv ℝ u) (↑p) μ
state_after: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ ↑C₁ * ↑C * (↑C₂ * snorm (fderiv ℝ u) (↑p) μ) =
    ↑‖↑toEuclidean.symm‖₊ * ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * ↑‖↑toEuclidean‖₊ * snorm (fderiv ℝ u) (↑p) μ

tactic: simp_rw [mul_assoc]
state_before: ι : Type u_1
inst✝¹⁵ : Fintype ι
inst✝¹⁴ : DecidableEq ι
A : ι → Type u_2
inst✝¹³ : (i : ι) → MeasurableSpace (A i)
μ✝ : (i : ι) → Measure (A i)
inst✝¹² : ∀ (i : ι), SigmaFinite (μ✝ i)
F : Type u_3
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℝ F
E : Type u_4
inst✝⁹ : NormedAddCommGroup E
inst✝⁸ : NormedSpace ℝ E
inst✝⁷ : MeasurableSpace E
inst✝⁶ : BorelSpace E
inst✝⁵ : FiniteDimensional ℝ E
μ : Measure E
inst✝⁴ : μ.IsAddHaarMeasure
F'✝ : Type u_5
inst✝³ : NormedAddCommGroup F'✝
inst✝² : InnerProductSpace ℝ F'✝
inst✝¹ : CompleteSpace F'✝
inst✝ : FiniteDimensional ℝ F
u : E → F
hu : ContDiff ℝ 1 u
h2u : HasCompactSupport u
p p' : ℝ≥0
hp : 1 ≤ p
hn : 0 < finrank ℝ E
hp' : (↑p')⁻¹ = ↑p⁻¹ - (↑(finrank ℝ E))⁻¹
F' : Type := EuclideanSpace ℝ (Fin (finrank ℝ F))
e : F ≃L[ℝ] F' := toEuclidean
C₁ : ℝ≥0 := ‖↑e.symm‖₊
C : ℝ≥0 := snormLESNormFDerivOfEqInnerConst μ ↑p
C₂ : ℝ≥0 := ‖↑e‖₊
v : E → F' := ⇑e ∘ u
hv : ContDiff ℝ 1 v
h2v : HasCompactSupport v
this : snorm v (↑p') μ ≤ ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * snorm (fderiv ℝ v) (↑p) μ
h4v : ∀ (x : E), ‖fderiv ℝ v x‖ ≤ ↑C₂ * ‖fderiv ℝ u x‖
⊢ ↑C₁ * ↑C * (↑C₂ * snorm (fderiv ℝ u) (↑p) μ) =
    ↑‖↑toEuclidean.symm‖₊ * ↑(snormLESNormFDerivOfEqInnerConst μ ↑p) * ↑‖↑toEuclidean‖₊ * snorm (fderiv ℝ u) (↑p) μ
state_after: no goals