Definition hx (t : R) : R := (r_vi * sin (rho_vi * t))%R.

Lemma xpt_PI : forall t : R, (0 <= t)%R -> (rho_vi * t <= PI)%R -> (r_vi * sin (rho_vi * t) - l * cos (beta + thetat intr 0) <= xp t)%R.