Update laplace.lean

This commit is contained in:
Stefan Kebekus
2024-05-13 09:52:15 +02:00
parent e5f2551482
commit 5e3f9c463f

View File

@@ -15,6 +15,7 @@ import Nevanlinna.cauchyRiemann
import Nevanlinna.partialDeriv import Nevanlinna.partialDeriv
variable {F : Type*} [NormedAddCommGroup F] [NormedSpace F] variable {F : Type*} [NormedAddCommGroup F] [NormedSpace F]
variable {G : Type*} [NormedAddCommGroup G] [NormedSpace G]
noncomputable def Complex.laplace : ( F) ( F) := noncomputable def Complex.laplace : ( F) ( F) :=
@@ -43,7 +44,6 @@ theorem laplace_add {f₁ f₂ : → F} (h₁ : ContDiff 2 f₁) (h₂
exact h₂.differentiable one_le_two exact h₂.differentiable one_le_two
theorem laplace_smul {f : F} (h : ContDiff 2 f) : v : , Complex.laplace (v f) = v (Complex.laplace f) := by theorem laplace_smul {f : F} (h : ContDiff 2 f) : v : , Complex.laplace (v f) = v (Complex.laplace f) := by
intro v intro v
unfold Complex.laplace unfold Complex.laplace
@@ -57,3 +57,18 @@ theorem laplace_smul {f : → F} (h : ContDiff 2 f) : ∀ v : , Compl
exact h.differentiable one_le_two exact h.differentiable one_le_two
exact (partialDeriv_contDiff h 1).differentiable le_rfl exact (partialDeriv_contDiff h 1).differentiable le_rfl
exact h.differentiable one_le_two exact h.differentiable one_le_two
theorem laplace_compContLin {f : F} {l : F L[] G} (h : ContDiff 2 f) :
Complex.laplace (l f) = l (Complex.laplace f) := by
unfold Complex.laplace
rw [partialDeriv_compContLin]
rw [partialDeriv_compContLin]
rw [partialDeriv_compContLin]
rw [partialDeriv_compContLin]
simp
exact (partialDeriv_contDiff h Complex.I).differentiable le_rfl
exact h.differentiable one_le_two
exact (partialDeriv_contDiff h 1).differentiable le_rfl
exact h.differentiable one_le_two