curvature_computable

formal source

 280  exact computable_log hphi hpos
 281
 282/-- The curvature term 103/(102π⁵) is computable. -/
 283theorem curvature_computable : Computable ((103 : ℝ) / (102 * Real.pi ^ 5)) := by
 284  have h103 : Computable ((103 : ℕ) : ℝ) := inferInstance
 285  have h102 : Computable ((102 : ℕ) : ℝ) := inferInstance
 286  simp only [Nat.cast_ofNat] at h103 h102
 287  have hpi : Computable Real.pi := pi_computable
 288  have hpi5 : Computable (Real.pi ^ 5) := computable_pow hpi 5
 289  have hdenom : Computable (102 * Real.pi ^ 5) := computable_mul h102 hpi5
 290  have hne : (102 : ℝ) * Real.pi ^ 5 ≠ 0 := by
 291    apply mul_ne_zero
 292    · norm_num
 293    · exact pow_ne_zero 5 Real.pi_ne_zero
 294  exact computable_div h103 hdenom hne
 295
 296/-! ## Summary -/
 297
 298/-- Gap 2 Resolution: Classical proofs ≠ non-computable outputs.
 299
 300    The "algorithmic" claim of RS is about the DERIVED CONSTANTS being computable,
 301    not about the proof machinery being constructive.
 302
 303    - Lean's `classical` tactic: OK (doesn't affect output values)
 304    - Lean's `noncomputable`: OK (Lean limitation, not Turing limitation)
 305    - Using Real.pi: OK (π is computable)
 306    - Using Classical.choice: OK (only in proofs, not in computed values)
 307
 308    The key test: Can you write a program to compute α⁻¹ to arbitrary precision?
 309    Answer: YES. Therefore α⁻¹ is computable. QED. -/
 310
 311end ConstructiveNote
 312end Meta
 313end IndisputableMonolith