(*** 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 tau_le_0_diverg : (tau (measure2state intr 0) (measure2state (tr evad) 0) 0 <= 0)%R -> (d intr evad <= RR (measure2state intr 0) (measure2state (tr evad) 0) T)%R.