Definition xe : R := x (tr evad) T.Definition ye : R := y (tr evad) T.Definition ve : R := v (h (tr evad)).Definition r_vi : R := r (vi intr).Definition rho_vi : R := rho (vi intr).Definition Die (ti te : R) : R :=
  sqrt
    (Rsqr (xi intr ti - x (tr evad) te) + Rsqr (yi intr ti - y (tr evad) te)).Definition conflict (t : R) : bool :=
  match Rle_dec (Die t t) ConflictRange with
  | left _ => true
  | right _ => false
  end.

(* Specifications: *)
Lemma Dx : forall t : R, derive_pt (xi intr) t (xi_derivable intr t) = (vi intr * cos (thetat intr t))%R.
Lemma Dy : forall t : R, derive_pt (yi intr) t (yi_derivable intr t) = (vi intr * sin (thetat intr t))%R.