def
definition
k_B
show as:
view math explainer →
open explainer
Read the cached plain-language explainer.
open lean source
IndisputableMonolith.Quantum.PageCurve on GitHub at line 42.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
used by
-
thermal_energy_at_unit_T -
e_SI -
proton_mass_MeV_pos -
coolingFraction_band -
en002_certificate -
rs_coherence_quantum_pos -
thermal_ratio_pos -
thermal_ratio_room_temp -
rs_entropy -
computation_has_nonzero_energy_cost -
computation_limits_summary -
ic002_certificate -
k_B -
landauer_energy_pos -
landauer_scales_with_temp -
ic001_certificate -
k_B_ln2 -
landauer_constant_pos -
ledger_identity -
entropyApplications -
source_coding_theorem -
thermodynamic_entropy_connection -
info_per_voxel -
recombination_temperature_positive -
rs_eta -
bcs_gap_positive -
bcs_Tc_positive -
gamow_energy_increases_with_T -
nuclear_efficiency_valid -
virial_temperature -
bekensteinHawkingEntropy -
entropyInBits -
entropy_proportional_to_area -
hawkingTemperature -
horizonArea -
informationContent -
k_B -
planck_mass_temperature -
planckTemperature -
solarMassTemperature
formal source
39open IndisputableMonolith.Cost
40
41/-- Boltzmann constant. -/
42noncomputable def k_B : ℝ := 1.380649e-23
43
44/-! ## The Page Curve Setup -/
45
46/-- A black hole with evolving entropy. -/
47structure EvolvingBlackHole where
48 /-- Initial Bekenstein-Hawking entropy (in bits) -/
49 S_initial : ℝ
50 /-- Fraction of initial mass that has evaporated (0 to 1) -/
51 evaporation_fraction : ℝ
52 /-- Validity constraints -/
53 s_pos : S_initial > 0
54 frac_valid : 0 ≤ evaporation_fraction ∧ evaporation_fraction ≤ 1
55
56/-- The remaining black hole entropy. -/
57noncomputable def remainingEntropy (bh : EvolvingBlackHole) : ℝ :=
58 bh.S_initial * (1 - bh.evaporation_fraction)
59
60/-- The entropy carried away by radiation (naive, before Page time). -/
61noncomputable def radiationEntropyNaive (bh : EvolvingBlackHole) : ℝ :=
62 bh.S_initial * bh.evaporation_fraction
63
64/-! ## The Page Curve -/
65
66/-- The Page time: when half the initial entropy has been radiated.
67 This occurs at evaporation_fraction = 1/2. -/
68noncomputable def pageTime : ℝ := 1 / 2
69
70/-- The entanglement entropy of the radiation (the Page curve).
71
72 Before Page time (f < 1/2):