(*** Verifiable in MuPAD ***)
Axiom
  cos_beta_NOT_Alpha :
    Alpha (beta intr evad T) = false ->
    h intr = V ->
    h (tr evad) = V ->
    (MinDistance T <= l intr evad T)%R ->
    (l intr evad T <= MaxDistance T)%R ->
    (cos (beta intr evad T) <= cos MinBeta)%R.

Lemma R_T_d_diff_1 : h (tr evad) = V -> (cos (beta intr evad T + thetat intr 0) <= cos (beta intr evad T))%R -> (d intr evad <= RR (measure2state intr 0) (measure2state (tr evad) 0) T)%R.