(**********)
Definition xi : R -> R := x intr.Definition yi : R -> R := y intr.Definition vi : TypeSpeed := h intr.Definition xP (t : R) : R := (xi t - xi 0)%R.Definition yP (t : R) : R := (yi t - yi 0)%R.Definition u (eps : posreal) (t : R) : R :=
  sqrt (Rsqr (xP t) + Rsqr (yP t) + Rsqr eps).Definition u0 (t : R) : R := sqrt (Rsqr (xP t) + Rsqr (yP t)).

Lemma D_Rsqr_u_epsilon_1 : forall (eps : posreal) (t : R), derive_pt (fun y : R => Rsqr (u eps y)) t (fct_der2 eps t) = (2 * u eps t * derive_pt (u eps) t (d_u eps t))%R.