Update complexHarmonic.lean

Nevanlinna/complexHarmonic.lean

@@ -39,7 +39,17 @@ theorem holomorphic_is_harmonic {f : ℂ → ℂ} (h : Differentiable ℂ f) :
   · -- Laplace of f is zero
     unfold Complex.laplace
     rw [CauchyRiemann₄ h]
-    rw [partialDeriv_smul₂ fI_is_real_differentiable]
+
+    let l : ℂ →L[ℝ] ℂ := by
+      --
+      sorry --(fun x ↦ Complex.I • x)
+    have : (Complex.I • Real.partialDeriv 1 f) = (l ∘ (Real.partialDeriv 1 f)) := by
+      sorry
+    rw [this]
+    rw [partialDeriv_compContLin]
+
+    --rw [partialDeriv_smul₂ fI_is_real_differentiable]
+
     rw [partialDeriv_comm f_is_real_C2 Complex.I 1]
     rw [CauchyRiemann₄ h]
     rw [partialDeriv_smul₂ fI_is_real_differentiable]