Update holomorphic.primitive.lean

This commit is contained in:
Stefan Kebekus 2024-06-12 13:50:29 +02:00
parent a9f1c3eaa6
commit ce751dff83
1 changed files with 14 additions and 6 deletions

View File

@ -161,15 +161,21 @@ theorem integral_divergence₅
(∫ (x : ) in a₁..b₁, Complex.I • F { re := x, im := a₂ }) +
(∫ (y : ) in a₂..b₂, F { re := a₁, im := y }) := by
let f := F
let h₁f : ContDiff 1 f := by sorry
let h₁f : ContDiff 1 F := (hF.contDiff : ContDiff 1 F).restrict_scalars
let g := Complex.I • F
let h₁g : ContDiff 1 g := by sorry
let h₁g : ContDiff 1 (Complex.I • F) := by
have : Complex.I • F = fun x ↦ Complex.I • F x := by rfl
rw [this]
apply ContDiff.comp
exact contDiff_const_smul Complex.I
exact h₁f
let A := integral_divergence₄ f g h₁f h₁g a₁ a₂ b₁ b₂
have {z : } : fderiv f z 1 = partialDeriv 1 f z := by rfl
conv at A in (fderiv f _) 1 => rw [this]
let A := integral_divergence₄ F g h₁f h₁g a₁ a₂ b₁ b₂
have {z : } : fderiv F z 1 = partialDeriv 1 F z := by rfl
conv at A in (fderiv F _) 1 => rw [this]
have {z : } : fderiv g z Complex.I = partialDeriv Complex.I g z := by rfl
conv at A in (fderiv g _) Complex.I => rw [this]
@ -186,4 +192,6 @@ theorem integral_divergence₅
simp
simp at A
sorry