Definition Alpha (a : R) : bool :=
  let a1 :=
    ((Rsqr (ve evad * T) + Rsqr (l intr evad T) - Rsqr AlertRange) /
     (2 * ve evad * T))%R in
  let a2 := (l intr evad T * cos a)%R in
  match Rle_dec a1 a2 with
  | left _ => true
  | right _ => false
  end.

(* Specifications: *)
Lemma Alpha_d_AlertRange_0 : Alpha (beta intr evad T) = true -> (d intr evad <= AlertRange)%R.
Lemma Alpha_d_AlertRange_1 : (d intr evad <= AlertRange)%R -> Alpha (beta intr evad T) = true.
Lemma Alpha_d_AlertRange_2 : Alpha (beta intr evad T) = false -> (AlertRange < d intr evad)%R.
Lemma Alpha_d_AlertRange_3 : (AlertRange < d intr evad)%R -> Alpha (beta intr evad T) = false.