chore(Combinatorics/Enumerative/Catalan): split into Basic & Tree

Author: GrigorenkoPV

Mathlib.lean

@@ -3373,6 +3373,8 @@ public import Mathlib.Combinatorics.Digraph.Basic
 public import Mathlib.Combinatorics.Digraph.Orientation
 public import Mathlib.Combinatorics.Enumerative.Bell
 public import Mathlib.Combinatorics.Enumerative.Catalan
+public import Mathlib.Combinatorics.Enumerative.Catalan.Basic
+public import Mathlib.Combinatorics.Enumerative.Catalan.Tree
 public import Mathlib.Combinatorics.Enumerative.Composition
 public import Mathlib.Combinatorics.Enumerative.DoubleCounting
 public import Mathlib.Combinatorics.Enumerative.DyckWord

Mathlib/Combinatorics/Enumerative/Catalan.lean

@@ -1,193 +1,5 @@
-/-
-Copyright (c) 2022 Julian Kuelshammer. All rights reserved.
-Released under Apache 2.0 license as described in the file LICENSE.
-Authors: Julian Kuelshammer
--/
-module
+module -- shake: keep-all
+public import Mathlib.Combinatorics.Enumerative.Catalan.Basic
+public import Mathlib.Combinatorics.Enumerative.Catalan.Tree
 
-public import Mathlib.Algebra.BigOperators.Group.Finset.Defs
-public import Mathlib.Data.Finset.NatAntidiagonal
-public import Mathlib.Data.Nat.Choose.Central
-
-import Mathlib.Algebra.BigOperators.Fin
-import Mathlib.Algebra.BigOperators.NatAntidiagonal
-import Mathlib.Tactic.Field
-
-/-!
-# Catalan numbers
-
-The Catalan numbers (http://oeis.org/A000108) are probably the most ubiquitous sequence of integers
-in mathematics. They enumerate several important objects like binary trees, Dyck paths, and
-triangulations of convex polygons.
-
-## Main definitions
-
-* `catalan n`: the `n`th Catalan number, defined recursively as
-  `catalan (n + 1) = ∑ i : Fin n.succ, catalan i * catalan (n - i)`.
-
-## Main results
-
-* `catalan_eq_centralBinom_div`: The explicit formula for the Catalan number using the central
-  binomial coefficient, `catalan n = Nat.centralBinom n / (n + 1)`.
-
-* `treesOfNumNodesEq_card_eq_catalan`: The number of binary trees with `n` internal nodes
-  is `catalan n`
-
-## Implementation details
-
-The proof of `catalan_eq_centralBinom_div` follows https://math.stackexchange.com/questions/3304415
-
-## TODO
-
-* Prove that the Catalan numbers enumerate many interesting objects.
-* Provide the many variants of Catalan numbers, e.g. associated to complex reflection groups,
-  Fuss-Catalan, etc.
-
--/
-
-@[expose] public section
-
-
-open Finset
-
-open Finset.antidiagonal (fst_le snd_le)
-
-/-- The recursive definition of the sequence of Catalan numbers:
-`catalan (n + 1) = ∑ i : Fin n.succ, catalan i * catalan (n - i)` -/
-def catalan : ℕ → ℕ
-  | 0 => 1
-  | n + 1 =>
-    ∑ i : Fin n.succ,
-      catalan i * catalan (n - i)
-
-@[simp]
-theorem catalan_zero : catalan 0 = 1 := by rw [catalan]
-
-theorem catalan_succ (n : ℕ) : catalan (n + 1) = ∑ i : Fin n.succ, catalan i * catalan (n - i) := by
-  rw [catalan]
-
-theorem catalan_succ' (n : ℕ) :
-    catalan (n + 1) = ∑ ij ∈ antidiagonal n, catalan ij.1 * catalan ij.2 := by
-  rw [catalan_succ, Nat.sum_antidiagonal_eq_sum_range_succ (fun x y => catalan x * catalan y) n,
-    sum_range]
-
-@[simp]
-theorem catalan_one : catalan 1 = 1 := by simp [catalan_succ]
-
-/-- A helper sequence that can be used to prove the equality of the recursive and the explicit
-definition using a telescoping sum argument. -/
-private def gosperCatalan (n j : ℕ) : ℚ :=
-  Nat.centralBinom j * Nat.centralBinom (n - j) * (2 * j - n) / (2 * n * (n + 1))
-
-private theorem gosper_trick {n i : ℕ} (h : i ≤ n) :
-    gosperCatalan (n + 1) (i + 1) - gosperCatalan (n + 1) i =
-      Nat.centralBinom i / (i + 1) * Nat.centralBinom (n - i) / (n - i + 1) := by
-  have l₁ : (i : ℚ) + 1 ≠ 0 := by norm_cast
-  have l₂ : (n : ℚ) - i + 1 ≠ 0 := by norm_cast
-  have h₁ := (mul_div_cancel_left₀ (↑(Nat.centralBinom (i + 1))) l₁).symm
-  have h₂ := (mul_div_cancel_left₀ (↑(Nat.centralBinom (n - i + 1))) l₂).symm
-  have h₃ : ((i : ℚ) + 1) * (i + 1).centralBinom = 2 * (2 * i + 1) * i.centralBinom :=
-    mod_cast Nat.succ_mul_centralBinom_succ i
-  have h₄ :
-    ((n : ℚ) - i + 1) * (n - i + 1).centralBinom = 2 * (2 * (n - i) + 1) * (n - i).centralBinom :=
-      mod_cast Nat.succ_mul_centralBinom_succ (n - i)
-  simp only [gosperCatalan]
-  push_cast
-  rw [show n + 1 - i = n - i + 1 by rw [Nat.add_comm (n - i) 1, ← (Nat.add_sub_assoc h 1),
-    add_comm]]
-  rw [h₁, h₂, h₃, h₄]
-  field
-
-private theorem gosper_catalan_sub_eq_central_binom_div (n : ℕ) : gosperCatalan (n + 1) (n + 1) -
-    gosperCatalan (n + 1) 0 = Nat.centralBinom (n + 1) / (n + 2) := by
-  simp only [gosperCatalan, tsub_self, Nat.centralBinom_zero, Nat.cast_one, mul_one, Nat.cast_add,
-    Nat.sub_zero, one_mul, Nat.cast_zero, mul_zero, zero_sub, neg_add_rev]
-  field
-
-theorem catalan_eq_centralBinom_div (n : ℕ) : catalan n = n.centralBinom / (n + 1) := by
-  suffices (catalan n : ℚ) = Nat.centralBinom n / (n + 1) by
-    have h := Nat.succ_dvd_centralBinom n
-    exact mod_cast this
-  induction n using Nat.caseStrongRecOn with
-  | zero => simp
-  | ind d hd =>
-    simp_rw [catalan_succ, Nat.cast_sum, Nat.cast_mul]
-    trans (∑ i : Fin d.succ, Nat.centralBinom i / (i + 1) *
-                            (Nat.centralBinom (d - i) / (d - i + 1)) : ℚ)
-    · congr
-      ext1 x
-      have m_le_d : x.val ≤ d := by lia
-      have d_minus_x_le_d : (d - x.val) ≤ d := tsub_le_self
-      rw [hd _ m_le_d, hd _ d_minus_x_le_d]
-      norm_cast
-    · trans (∑ i : Fin d.succ, (gosperCatalan (d + 1) (i + 1) - gosperCatalan (d + 1) i))
-      · refine sum_congr rfl fun i _ => ?_
-        rw [gosper_trick i.is_le, mul_div]
-      · rw [← sum_range fun i => gosperCatalan (d + 1) (i + 1) - gosperCatalan (d + 1) i,
-            sum_range_sub, Nat.succ_eq_add_one]
-        rw [gosper_catalan_sub_eq_central_binom_div d]
-        norm_cast
-
-theorem succ_mul_catalan_eq_centralBinom (n : ℕ) : (n + 1) * catalan n = n.centralBinom :=
-  (Nat.eq_mul_of_div_eq_right n.succ_dvd_centralBinom (catalan_eq_centralBinom_div n).symm).symm
-
-theorem catalan_two : catalan 2 = 2 := by
-  norm_num [catalan_eq_centralBinom_div, Nat.centralBinom, Nat.choose]
-
-theorem catalan_three : catalan 3 = 5 := by
-  norm_num [catalan_eq_centralBinom_div, Nat.centralBinom, Nat.choose]
-
-namespace Tree
-
-/-- Given two finsets, find all trees that can be formed with
-  left child in `a` and right child in `b` -/
-abbrev pairwiseNode (a b : Finset (Tree Unit)) : Finset (Tree Unit) :=
-  (a ×ˢ b).map ⟨fun x => x.1 △ x.2, fun ⟨x₁, x₂⟩ ⟨y₁, y₂⟩ => fun h => by simpa using h⟩
-
-/-- A Finset of all trees with `n` nodes. See `mem_treesOfNodesEq` -/
-def treesOfNumNodesEq : ℕ → Finset (Tree Unit)
-  | 0 => {nil}
-  | n + 1 =>
-    (antidiagonal n).attach.biUnion fun ijh =>
-      pairwiseNode (treesOfNumNodesEq ijh.1.1) (treesOfNumNodesEq ijh.1.2)
-  decreasing_by
-    · simp_wf; have := fst_le ijh.2; lia
-    · simp_wf; have := snd_le ijh.2; lia
-
-@[simp]
-theorem treesOfNumNodesEq_zero : treesOfNumNodesEq 0 = {nil} := by rw [treesOfNumNodesEq]
-
-theorem treesOfNumNodesEq_succ (n : ℕ) :
-    treesOfNumNodesEq (n + 1) =
-      (antidiagonal n).biUnion fun ij =>
-        pairwiseNode (treesOfNumNodesEq ij.1) (treesOfNumNodesEq ij.2) := by
-  rw [treesOfNumNodesEq]
-  ext
-  simp
-
-@[simp]
-theorem mem_treesOfNumNodesEq {x : Tree Unit} {n : ℕ} :
-    x ∈ treesOfNumNodesEq n ↔ x.numNodes = n := by
-  induction x using Tree.unitRecOn generalizing n <;> cases n <;>
-    simp [treesOfNumNodesEq_succ, *]
-
-theorem mem_treesOfNumNodesEq_numNodes (x : Tree Unit) : x ∈ treesOfNumNodesEq x.numNodes :=
-  mem_treesOfNumNodesEq.mpr rfl
-
-@[simp, norm_cast]
-theorem coe_treesOfNumNodesEq (n : ℕ) :
-    ↑(treesOfNumNodesEq n) = { x : Tree Unit | x.numNodes = n } :=
-  Set.ext (by simp)
-
-theorem treesOfNumNodesEq_card_eq_catalan (n : ℕ) : #(treesOfNumNodesEq n) = catalan n := by
-  induction n using Nat.case_strong_induction_on with
-  | hz => simp
-  | hi n ih =>
-    rw [treesOfNumNodesEq_succ, card_biUnion, catalan_succ']
-    · apply sum_congr rfl
-      rintro ⟨i, j⟩ H
-      rw [card_map, card_product, ih _ (fst_le H), ih _ (snd_le H)]
-    · simp_rw [Set.PairwiseDisjoint, Set.Pairwise, disjoint_left]
-      aesop
-
-end Tree
+deprecated_module (since := "2026-02-04")

Mathlib/Combinatorics/Enumerative/Catalan/Basic.lean

@@ -0,0 +1,133 @@
+/-
+Copyright (c) 2022 Julian Kuelshammer. All rights reserved.
+Released under Apache 2.0 license as described in the file LICENSE.
+Authors: Julian Kuelshammer
+-/
+module
+
+public import Mathlib.Algebra.BigOperators.Group.Finset.Defs
+public import Mathlib.Data.Finset.NatAntidiagonal
+public import Mathlib.Data.Nat.Choose.Central
+
+import Mathlib.Algebra.BigOperators.Fin
+import Mathlib.Algebra.BigOperators.NatAntidiagonal
+import Mathlib.Tactic.Field
+
+/-!
+# Catalan numbers
+
+The Catalan numbers (http://oeis.org/A000108) are probably the most ubiquitous sequence of integers
+in mathematics. They enumerate several important objects like binary trees, Dyck paths, and
+triangulations of convex polygons.
+
+## Main definitions
+
+* `catalan n`: the `n`th Catalan number, defined recursively as
+  `catalan (n + 1) = ∑ i : Fin n.succ, catalan i * catalan (n - i)`.
+
+## Main results
+
+* `catalan_eq_centralBinom_div`: The explicit formula for the Catalan number using the central
+  binomial coefficient, `catalan n = Nat.centralBinom n / (n + 1)`.
+
+## Implementation details
+
+The proof of `catalan_eq_centralBinom_div` follows https://math.stackexchange.com/questions/3304415
+
+## TODO
+
+* Prove that the Catalan numbers enumerate many interesting objects.
+* Provide the many variants of Catalan numbers, e.g. associated to complex reflection groups,
+  Fuss-Catalan, etc.
+
+-/
+
+@[expose] public section
+
+
+open Finset
+
+/-- The recursive definition of the sequence of Catalan numbers:
+`catalan (n + 1) = ∑ i : Fin n.succ, catalan i * catalan (n - i)` -/
+def catalan : ℕ → ℕ
+  | 0 => 1
+  | n + 1 =>
+    ∑ i : Fin n.succ,
+      catalan i * catalan (n - i)
+
+@[simp]
+theorem catalan_zero : catalan 0 = 1 := by rw [catalan]
+
+theorem catalan_succ (n : ℕ) : catalan (n + 1) = ∑ i : Fin n.succ, catalan i * catalan (n - i) := by
+  rw [catalan]
+
+theorem catalan_succ' (n : ℕ) :
+    catalan (n + 1) = ∑ ij ∈ antidiagonal n, catalan ij.1 * catalan ij.2 := by
+  rw [catalan_succ, Nat.sum_antidiagonal_eq_sum_range_succ (fun x y => catalan x * catalan y) n,
+    sum_range]
+
+@[simp]
+theorem catalan_one : catalan 1 = 1 := by simp [catalan_succ]
+
+/-- A helper sequence that can be used to prove the equality of the recursive and the explicit
+definition using a telescoping sum argument. -/
+private def gosperCatalan (n j : ℕ) : ℚ :=
+  Nat.centralBinom j * Nat.centralBinom (n - j) * (2 * j - n) / (2 * n * (n + 1))
+
+private theorem gosper_trick {n i : ℕ} (h : i ≤ n) :
+    gosperCatalan (n + 1) (i + 1) - gosperCatalan (n + 1) i =
+      Nat.centralBinom i / (i + 1) * Nat.centralBinom (n - i) / (n - i + 1) := by
+  have l₁ : (i : ℚ) + 1 ≠ 0 := by norm_cast
+  have l₂ : (n : ℚ) - i + 1 ≠ 0 := by norm_cast
+  have h₁ := (mul_div_cancel_left₀ (↑(Nat.centralBinom (i + 1))) l₁).symm
+  have h₂ := (mul_div_cancel_left₀ (↑(Nat.centralBinom (n - i + 1))) l₂).symm
+  have h₃ : ((i : ℚ) + 1) * (i + 1).centralBinom = 2 * (2 * i + 1) * i.centralBinom :=
+    mod_cast Nat.succ_mul_centralBinom_succ i
+  have h₄ :
+    ((n : ℚ) - i + 1) * (n - i + 1).centralBinom = 2 * (2 * (n - i) + 1) * (n - i).centralBinom :=
+      mod_cast Nat.succ_mul_centralBinom_succ (n - i)
+  simp only [gosperCatalan]
+  push_cast
+  rw [show n + 1 - i = n - i + 1 by rw [Nat.add_comm (n - i) 1, ← (Nat.add_sub_assoc h 1),
+    add_comm]]
+  rw [h₁, h₂, h₃, h₄]
+  field
+
+private theorem gosper_catalan_sub_eq_central_binom_div (n : ℕ) : gosperCatalan (n + 1) (n + 1) -
+    gosperCatalan (n + 1) 0 = Nat.centralBinom (n + 1) / (n + 2) := by
+  simp only [gosperCatalan, tsub_self, Nat.centralBinom_zero, Nat.cast_one, mul_one, Nat.cast_add,
+    Nat.sub_zero, one_mul, Nat.cast_zero, mul_zero, zero_sub, neg_add_rev]
+  field
+
+theorem catalan_eq_centralBinom_div (n : ℕ) : catalan n = n.centralBinom / (n + 1) := by
+  suffices (catalan n : ℚ) = Nat.centralBinom n / (n + 1) by
+    have h := Nat.succ_dvd_centralBinom n
+    exact mod_cast this
+  induction n using Nat.caseStrongRecOn with
+  | zero => simp
+  | ind d hd =>
+    simp_rw [catalan_succ, Nat.cast_sum, Nat.cast_mul]
+    trans (∑ i : Fin d.succ, Nat.centralBinom i / (i + 1) *
+                            (Nat.centralBinom (d - i) / (d - i + 1)) : ℚ)
+    · congr
+      ext1 x
+      have m_le_d : x.val ≤ d := by lia
+      have d_minus_x_le_d : (d - x.val) ≤ d := tsub_le_self
+      rw [hd _ m_le_d, hd _ d_minus_x_le_d]
+      norm_cast
+    · trans (∑ i : Fin d.succ, (gosperCatalan (d + 1) (i + 1) - gosperCatalan (d + 1) i))
+      · refine sum_congr rfl fun i _ => ?_
+        rw [gosper_trick i.is_le, mul_div]
+      · rw [← sum_range fun i => gosperCatalan (d + 1) (i + 1) - gosperCatalan (d + 1) i,
+            sum_range_sub, Nat.succ_eq_add_one]
+        rw [gosper_catalan_sub_eq_central_binom_div d]
+        norm_cast
+
+theorem succ_mul_catalan_eq_centralBinom (n : ℕ) : (n + 1) * catalan n = n.centralBinom :=
+  (Nat.eq_mul_of_div_eq_right n.succ_dvd_centralBinom (catalan_eq_centralBinom_div n).symm).symm
+
+theorem catalan_two : catalan 2 = 2 := by
+  norm_num [catalan_eq_centralBinom_div, Nat.centralBinom, Nat.choose]
+
+theorem catalan_three : catalan 3 = 5 := by
+  norm_num [catalan_eq_centralBinom_div, Nat.centralBinom, Nat.choose]