fact: Definition ails_alert (intruder evader : State) : Prop := let phi := bank intruder in let trkrate := trkrate phi in match Req_EM_var trkrate 0 with | left _ => chktrack intruder evader 0 | right _ => let arcrad := (Rsqr (v intruderSpeed) / (g * tand (r phi)))%R in let idtrk := match Rle_dec 3 trkrate with | left _ => 1 | right _ => match Rle_dec (3 / 2) trkrate with | left _ => 2 | right _ => match Rle_dec (3 / 4) trkrate with | left _ => 4 | right _ => 8 end end end in arc_loop intruder evader arcrad trkrate idtrk 0 end.
imports: Reals trajectory_const constants ails_def tau Omega