def
definition
asteroidTrajectoryShapingCert
show as:
view math explainer →
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
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