pith. machine review for the scientific record. sign in
theorem

sbh_saturation_uniqueness

proved
show as:
view math explainer →
module
IndisputableMonolith.Relativity.Compact.BlackHoleEntropy
domain
Relativity
line
60 · github
papers citing
none yet

open explainer

Read the cached plain-language explainer.

open lean source

IndisputableMonolith.Relativity.Compact.BlackHoleEntropy on GitHub at line 60.

browse module

All declarations in this module, on Recognition.

explainer page

A cached Ask Recognition explainer exists for this declaration.

open explainer

depends on

formal source

  57  use LedgerCapacityLimit A ell0 / (8 * tau0)
  58
  59/--- **CERT(definitional)**: Bekenstein-Hawking entropy as the unique saturation point. -/
  60theorem sbh_saturation_uniqueness (Rs : ℝ) (h_Rs : Rs > 0) :
  61    ∃! (S : ℝ), S = HorizonArea Rs / (4 * ell0^2) := by
  62  use HorizonArea Rs / (4 * ell0^2)
  63  constructor
  64  · rfl
  65  · intro S' h; exact h
  66
  67/-- The BH entropy saturation value is strictly positive for `Rs > 0`. -/
  68theorem sbh_saturation_positive (Rs : ℝ) (h_Rs : Rs > 0) :
  69    0 < HorizonArea Rs / (4 * ell0^2) := by
  70  have hA : 0 < HorizonArea Rs := horizon_area_pos Rs h_Rs
  71  have hden : 0 < 4 * ell0 ^ 2 := by
  72    nlinarith [sq_pos_of_pos ell0_pos]
  73  exact div_pos hA hden
  74
  75/-- The BH entropy saturation value is nonzero for `Rs > 0`. -/
  76theorem sbh_saturation_nonzero (Rs : ℝ) (h_Rs : Rs > 0) :
  77    HorizonArea Rs / (4 * ell0^2) ≠ 0 :=
  78  ne_of_gt (sbh_saturation_positive Rs h_Rs)
  79
  80end Compact
  81end Relativity
  82end IndisputableMonolith