Definition thetat : R -> R := theta intr.Definition Rs (t : R) : R :=
  sqrt (Rsqr (xi intr t - xi intr 0) + Rsqr (yi intr t - yi intr 0)).Axiom
  alphas_exists :
    { f : Differential_D2 |
       forall t : R,
       xi intr t = (Rs t * cos (f t) + xi intr 0)%R /\
       yi intr t = (Rs t * sin (f t) + yi intr 0)%R }.Definition alphas := let (a,_) := alphas_exists in a.

Lemma alphas_def : forall t : R, xi intr t = (Rs t * cos (alphas t) + xi intr 0)%R /\ yi intr t = (Rs t * sin (alphas t) + yi intr 0)%R.