Definition G (t : R) : R := (Rs t - F t)%R.

(* Specifications: *)
Lemma G_derivable : derivable G.
Lemma D_G_alphas : forall t : R, (derive_pt G t (G_derivable t) * (derive_pt Rs t (Rs_derivable t) + derive_pt F t (F_derivable t)))%R = (- Rsqr (derive_pt alphas t (cond_D1 alphas t)) * G t * (Rs t + F t) + Rsqr (F t) * (Rsqr (rho (vi intr) / 2) - Rsqr (derive_pt alphas t (cond_D1 alphas t))))%R.
Lemma Rlt_1_PI2 : (1 < PI / 2)%R.
Lemma D_G_pos : forall t : R, (0 <= t)%R -> (t < 2 / rho (vi intr))%R -> (G t <= 0)%R -> (0 <= derive_pt G t (G_derivable t))%R.
Lemma G_0 : G 0 = 0%R.