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

asteroidTrajectoryShapingCert

definition
show as:
view math explainer →
module
IndisputableMonolith.Engineering.AsteroidTrajectoryShaping
domain
Engineering
line
97 · github
papers citing
none yet

open explainer

Read the cached plain-language explainer.

open lean source

IndisputableMonolith.Engineering.AsteroidTrajectoryShaping on GitHub at line 97.

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

  94  deflection_double : ∀ t, deflection (2 * t) = 4 * deflection t
  95  deflection_pos : ∀ {t : ℝ}, t ≠ 0 → 0 < deflection t
  96
  97def asteroidTrajectoryShapingCert : AsteroidTrajectoryShapingCert where
  98  carrier_band := carrier_frequency_band
  99  impulse_pos := impulseCoefficient_pos
 100  deflection_zero := deflection_zero
 101  deflection_nonneg := deflection_nonneg
 102  deflection_double := deflection_double
 103  deflection_pos := @deflection_pos_of_ne_zero
 104
 105/-- **ASTEROID TRAJECTORY ONE-STATEMENT.** Carrier frequency
 106`5φ ∈ (8.05, 8.10) Hz`; cumulative deflection scales as `t²` with
 107lead time; doubling lead time quadruples deflection. -/
 108theorem asteroid_one_statement :
 109    (8.05 : ℝ) < carrier_frequency ∧ carrier_frequency < 8.10 ∧
 110    (∀ t, deflection (2 * t) = 4 * deflection t) ∧
 111    deflection 0 = 0 :=
 112  ⟨carrier_frequency_band.1, carrier_frequency_band.2,
 113   deflection_double, deflection_zero⟩
 114
 115end
 116
 117end AsteroidTrajectoryShaping
 118end Engineering
 119end IndisputableMonolith