From 0e1cd2eb90923507cdc4bc7f1342b69166864190 Mon Sep 17 00:00:00 2001
From: Daniel Weber <commandmaster2017@gmail.com>
Date: Sat, 14 Sep 2024 09:13:50 +0000
Subject: [PATCH] feat(Mathlib/FieldTheory): define differential fields
 (#14860)

Define logarithmic derivatives and prove some properties.



Co-authored-by: leanprover-community-mathlib4-bot <leanprover-community-mathlib4-bot@users.noreply.github.com>
Co-authored-by: Daniel Weber <55664973+Command-Master@users.noreply.github.com>
---
 Mathlib.lean                                |  1 +
 Mathlib/FieldTheory/Differential/Basic.lean | 92 +++++++++++++++++++++
 2 files changed, 93 insertions(+)
 create mode 100644 Mathlib/FieldTheory/Differential/Basic.lean

diff --git a/Mathlib.lean b/Mathlib.lean
index 1f9a91e9a4126..c6152af3d1f13 100644
--- a/Mathlib.lean
+++ b/Mathlib.lean
@@ -2634,6 +2634,7 @@ import Mathlib.FieldTheory.Adjoin
 import Mathlib.FieldTheory.AxGrothendieck
 import Mathlib.FieldTheory.Cardinality
 import Mathlib.FieldTheory.ChevalleyWarning
+import Mathlib.FieldTheory.Differential.Basic
 import Mathlib.FieldTheory.Extension
 import Mathlib.FieldTheory.Finite.Basic
 import Mathlib.FieldTheory.Finite.GaloisField
diff --git a/Mathlib/FieldTheory/Differential/Basic.lean b/Mathlib/FieldTheory/Differential/Basic.lean
new file mode 100644
index 0000000000000..61fe57fe7c197
--- /dev/null
+++ b/Mathlib/FieldTheory/Differential/Basic.lean
@@ -0,0 +1,92 @@
+/-
+Copyright (c) 2024 Daniel Weber. All rights reserved.
+Released under Apache 2.0 license as described in the file LICENSE.
+Authors: Daniel Weber
+-/
+import Mathlib.Algebra.EuclideanDomain.Field
+import Mathlib.RingTheory.Derivation.DifferentialRing
+import Mathlib.RingTheory.LocalRing.Basic
+import Mathlib.Tactic.FieldSimp
+
+/-!
+# Differential Fields
+
+This file defines the logarithmic derivative `Differential.logDeriv` and proves properties of it.
+This is defined algebraically, compared to `logDeriv` which is analytical.
+-/
+
+namespace Differential
+
+open algebraMap
+
+variable {R : Type*} [Field R] [Differential R] (a b : R)
+
+/--
+The logarithmic derivative of a is a′ / a.
+-/
+def logDeriv : R := a′ / a
+
+@[simp]
+lemma logDeriv_zero : logDeriv (0 : R) = 0 := by
+  simp [logDeriv]
+
+@[simp]
+lemma logDeriv_one : logDeriv (1 : R) = 0 := by
+  simp [logDeriv]
+
+lemma logDeriv_mul (ha : a ≠ 0) (hb : b ≠ 0) : logDeriv (a * b) = logDeriv a + logDeriv b := by
+  unfold logDeriv
+  field_simp
+  ring
+
+lemma logDeriv_div (ha : a ≠ 0) (hb : b ≠ 0) : logDeriv (a / b) = logDeriv a - logDeriv b := by
+  unfold logDeriv
+  field_simp [Derivation.leibniz_div]
+  ring
+
+@[simp]
+lemma logDeriv_pow (n : ℕ) (a : R) : logDeriv (a ^ n) = n * logDeriv a := by
+  induction n with
+  | zero => simp
+  | succ n h2 =>
+    obtain rfl | hb := eq_or_ne a 0
+    · simp
+    · rw [Nat.cast_add, Nat.cast_one, add_mul, one_mul, ← h2, pow_succ, logDeriv_mul] <;>
+      simp [hb]
+
+lemma logDeriv_eq_zero : logDeriv a = 0 ↔ a′ = 0 :=
+  ⟨fun h ↦ by simp only [logDeriv, div_eq_zero_iff] at h; rcases h with h|h <;> simp [h],
+  fun h ↦ by unfold logDeriv at *; simp [h]⟩
+
+lemma logDeriv_multisetProd {ι : Type*} (s : Multiset ι) {f : ι → R} (h : ∀ x ∈ s, f x ≠ 0) :
+    logDeriv (s.map f).prod = (s.map fun x ↦ logDeriv (f x)).sum := by
+  induction s using Multiset.induction_on
+  · simp
+  · rename_i h₂
+    simp only [Function.comp_apply, Multiset.map_cons, Multiset.sum_cons, Multiset.prod_cons]
+    rw [← h₂]
+    · apply logDeriv_mul
+      · simp [h]
+      · simp_all
+    · simp_all
+
+lemma logDeriv_prod (ι : Type*) (s : Finset ι) (f : ι → R) (h : ∀ x ∈ s, f x ≠ 0) :
+    logDeriv (∏ x ∈ s, f x) = ∑ x ∈ s, logDeriv (f x) := logDeriv_multisetProd _ h
+
+lemma logDeriv_prod_of_eq_zero (ι : Type*) (s : Finset ι) (f : ι → R) (h : ∀ x ∈ s, f x = 0) :
+    logDeriv (∏ x ∈ s, f x) = ∑ x ∈ s, logDeriv (f x) := by
+  unfold logDeriv
+  simp_all
+
+lemma logDeriv_algebraMap {F K : Type*} [Field F] [Field K] [Differential F] [Differential K]
+    [Algebra F K] [DifferentialAlgebra F K]
+    (a : F) : logDeriv (algebraMap F K a) = algebraMap F K (logDeriv a) := by
+  unfold logDeriv
+  simp [deriv_algebraMap]
+
+@[norm_cast]
+lemma _root_.algebraMap.coe_logDeriv {F K : Type*} [Field F] [Field K] [Differential F]
+    [Differential K] [Algebra F K] [DifferentialAlgebra F K]
+    (a : F) : logDeriv a = logDeriv (a : K) := (logDeriv_algebraMap a).symm
+
+end Differential