Theory Card_Irreducible_Polynomials

subsection ‹Gauss Formula\label{sec:card_irred}›

theory Card_Irreducible_Polynomials
  imports
    Dirichlet_Series.Moebius_Mu
    Card_Irreducible_Polynomials_Aux
begin

hide_const "Polynomial.order"

text ‹The following theorem is a slightly generalized form of the formula discovered by
Gauss for the number of monic irreducible polynomials over a finite field. He originally verified
the result for the case when @{term "R"} is a simple prime field.
The version of the formula here for the case where @{term "R"} may be an arbitrary finite field can
be found in Chebolu and Min{\'a}{\v{c}}~\<^cite>‹"chebolu2010"›.›

theorem (in finite_field) card_irred:
  assumes "n > 0"
  shows "n * card {f. monic_irreducible_poly R f ∧ degree f = n} =
    (∑d | d dvd n. moebius_mu d * (order R^(n div d)))"
    (is "?lhs = ?rhs")
proof -
  have "?lhs = dirichlet_prod moebius_mu (λx. int (order R) ^ x) n"
    using card_irred_aux
    by (intro moebius_inversion assms) (simp flip:of_nat_power)
  also have "... = ?rhs"
    by (simp add:dirichlet_prod_def)
  finally show ?thesis by simp
qed

text ‹In the following an explicit analytic lower bound for the cardinality of monic irreducible
polynomials is shown, with which existence follows. This part deviates from the classic approach,
where existence is verified using a divisibility argument. The reason for the deviation is that an
analytic bound can also be used to estimate the runtime of a randomized algorithm selecting an
irreducible polynomial, by randomly sampling monic polynomials.›

lemma (in finite_field) card_irred_1:
  "card {f. monic_irreducible_poly R f ∧ degree f = 1} = order R"
proof -
  have "int (1 * card {f. monic_irreducible_poly R f ∧ degree f = 1})
    = int (order R)"
    by (subst card_irred, auto)
  thus ?thesis by simp
qed

lemma (in finite_field) card_irred_2:
  "real (card {f. monic_irreducible_poly R f ∧ degree f = 2}) =
    (real (order R)^2 - order R) / 2"
proof -
  have "x dvd 2 ⟹ x = 1 ∨ x = 2" for x :: nat
    using nat_dvd_not_less[where m="2"]
    by (metis One_nat_def even_zero gcd_nat.strict_trans2
        less_2_cases nat_neq_iff pos2)
  hence a: "{d. d dvd 2} = {1,2::nat}"
    by (auto simp add:set_eq_iff)

  have "2*real (card {f. monic_irreducible_poly R f ∧ degree f = 2})
    = of_int (2* card {f. monic_irreducible_poly R f ∧ degree f = 2})"
    by simp
  also have "... =
    of_int (∑d | d dvd 2. moebius_mu d * int (order R) ^ (2 div d))"
    by (subst card_irred, auto)
  also have "... = order R^2 - int (order R)"
    by (subst a, simp)
  also have "... = real (order R)^2 - order R"
    by simp
  finally have
    "2 * real (card {f. monic_irreducible_poly R f ∧ degree f = 2}) =
    real (order R)^2 - order R"
    by simp
  thus ?thesis by simp
qed

lemma (in finite_field) card_irred_gt_2:
  assumes "n > 2"
  shows "real (order R)^n / (2*real n) ≤
    card {f. monic_irreducible_poly R f ∧ degree f = n}"
    (is "?lhs ≤ ?rhs")
proof -
  let ?m = "real (order R)"
  have a:"?m ≥ 2"
    using finite_field_min_order by simp

  have b:"moebius_mu n ≥ -(1::real)" for n :: nat
    using abs_moebius_mu_le[where n="n"]
    unfolding abs_le_iff by auto

  have c: "n > 0" using assms by simp
  have d: "x < n - 1" if d_assms: "x dvd n" "x ≠ n" for x :: nat
  proof -
    have "x < n"
      using d_assms dvd_nat_bounds c by auto
    moreover have "¬(n-1 dvd n)" using assms
      by (metis One_nat_def Suc_diff_Suc c diff_zero
          dvd_add_triv_right_iff nat_dvd_1_iff_1
          nat_neq_iff numeral_2_eq_2 plus_1_eq_Suc)
    hence "x ≠ n-1" using d_assms by auto
    ultimately show "x < n-1"  by simp
  qed

  have "?m^n / 2 = ?m^n - ?m^n/2" by simp
  also have "... ≤ ?m^n - ?m^n/?m^1"
    using a by (intro diff_mono divide_left_mono, simp_all)
  also have "... ≤ ?m^n - ?m^(n-1)"
    using a c by (subst power_diff, simp_all)
  also have "... ≤ ?m^n - (?m^(n-1) - 1)/1" by simp
  also have "... ≤ ?m^n - (?m^(n-1)-1)/(?m-1)"
    using a by (intro diff_left_mono divide_left_mono, simp_all)
  also have "... = ?m^n - (∑i ∈ {..<n-1}. ?m^i)"
    using a by (subst geometric_sum, simp_all)
  also have "... ≤ ?m^n - (∑i ∈ {k. k dvd n ∧ k ≠ n}. ?m^i)"
    using d
    by (intro diff_mono sum_mono2 subsetI, auto simp add:not_less)
  also have "... = ?m^n + (∑i ∈ {k. k dvd n ∧ k ≠ n}. (-1) * ?m^i)"
    by (subst sum_distrib_left[symmetric], simp)
  also have "... ≤ moebius_mu 1 * ?m^n +
    (∑i ∈ {k. k dvd n ∧ k ≠ n}. moebius_mu (n div i) * ?m^i)"
    using b
    by (intro add_mono sum_mono mult_right_mono)
      (simp_all add:not_less)
  also have "... =  (∑i ∈ insert n {k. k dvd n ∧ k ≠ n}.
    moebius_mu (n div i) * ?m^i)"
    using c by (subst sum.insert, auto)
  also have "... = (∑i ∈ {k. k dvd n}. moebius_mu (n div i) * ?m^i)"
    by (intro sum.cong, auto simp add:set_eq_iff)
  also have "... = dirichlet_prod (λi. ?m^i) moebius_mu n"
    unfolding dirichlet_prod_def by (intro sum.cong, auto)
  also have "... = dirichlet_prod moebius_mu (λi. ?m^i) n"
    using dirichlet_prod_commutes by metis
  also have "... =
    of_int (∑d | d dvd n. moebius_mu d * order R^(n div d))"
    unfolding dirichlet_prod_def by simp
  also have "... = of_int (n *
    card {f. monic_irreducible_poly R f ∧ length f - 1 = n})"
    using card_irred[OF c] by simp
  also have "... = n * ?rhs" by simp
  finally have "?m^n / 2 ≤ n * ?rhs" by simp
  hence "?m ^ n ≤ 2 * n * ?rhs" by simp
  hence "?m^n/(2*real n) ≤ ?rhs"
    using c by (subst pos_divide_le_eq, simp_all add:algebra_simps)
  thus ?thesis by simp
qed

lemma (in finite_field) card_irred_gt_0:
  assumes "d > 0"
  shows "real(order R)^d / (2*real d) ≤ real (card {f. monic_irreducible_poly R f ∧ degree f = d})"
    (is "?L ≤ ?R")
proof -
  consider (a) "d = 1" | (b) "d = 2" | (c) "d > 2" using assms by linarith
  thus ?thesis
  proof (cases)
    case a
    hence "?L = real (order R)/2" by simp
    also have "... ≤ real (order R)" using finite_field_min_order by simp
    also have "... = ?R" unfolding a card_irred_1 by simp
    finally show ?thesis by simp
  next
    case b
    hence "?L = real (order R^2)/4 + 0" by simp
    also have "... ≤ real (order R^2)/4 + real (order R)/2 * (real (order R)/2 - 1)"
      using finite_field_min_order by (intro add_mono mult_nonneg_nonneg) auto
    also have "... = (real (order R^2) - real (order R))/2"
      by (simp add:algebra_simps power2_eq_square)
    also have "... = ?R" unfolding b card_irred_2 by simp
    finally show ?thesis by simp
  next
    case c thus ?thesis by (rule card_irred_gt_2)
  qed
qed

lemma (in finite_field) exist_irred:
  assumes "n > 0"
  obtains f where "monic_irreducible_poly R f" "degree f = n"
proof -
  have "0 < real(order R)^n / (2*real n)"
    using finite_field_min_order assms
    by (intro divide_pos_pos mult_pos_pos zero_less_power) auto
  also have "... ≤ real (card {f. monic_irreducible_poly R f ∧ degree f = n})"
    (is "_ ≤ real(card ?A)")
    by (intro card_irred_gt_0 assms)
  finally have "0 < card {f. monic_irreducible_poly R f ∧ degree f = n}"
    by auto
  hence "?A ≠ {}"
    by (metis card.empty nless_le)
  then obtain f where "monic_irreducible_poly R f" "degree f = n"
    by auto
  thus ?thesis using that by simp
qed

theorem existence:
  assumes "n > 0"
  assumes "Factorial_Ring.prime p"
  shows "∃(F:: int set list set ring). finite_field F ∧ order F = p^n"
proof -
  interpret zf: finite_field "ZFact (int p)"
    using zfact_prime_is_finite_field assms by simp

  interpret zfp: polynomial_ring "ZFact p" "carrier (ZFact p)"
    unfolding polynomial_ring_def polynomial_ring_axioms_def
    using zf.field_axioms zf.carrier_is_subfield by simp

  have p_gt_0: "p > 0" using prime_gt_0_nat assms(2) by simp

  obtain f where f_def:
    "monic_irreducible_poly (ZFact (int p)) f"
    "degree f = n"
    using zf.exist_irred assms by auto

  let ?F  = "Rupt⇘(ZFact p)⇙ (carrier (ZFact p)) f"
  have "f ∈ carrier (poly_ring (ZFact (int p)))"
    using f_def(1) zf.monic_poly_carr
    unfolding monic_irreducible_poly_def
    by simp
  moreover have "degree f > 0"
    using assms(1) f_def by simp
  ultimately have "order ?F =  card (carrier (ZFact p))^degree f"
    by (intro zf.rupture_order[OF zf.carrier_is_subfield]) auto
  hence a:"order ?F = p^n"
    unfolding f_def(2) card_zfact_carr[OF p_gt_0] by simp

  have "field ?F"
    using f_def(1) zf.monic_poly_carr monic_irreducible_poly_def
    by (subst zfp.rupture_is_field_iff_pirreducible) auto
  moreover have "order ?F > 0"
    unfolding a using assms(1,2) p_gt_0 by simp
  ultimately have b:"finite_field ?F"
    using card_ge_0_finite
    by (intro finite_fieldI, auto simp add:Coset.order_def)

  show ?thesis
    using a b
    by (intro exI[where x="?F"], simp)
qed

end