Definition rho (h : TypeSpeed) : R := (g * (tan MaxBank / h))%R.Definition r (h : TypeSpeed) : R := (h / rho h)%R.Definition rho_ub (h : TypeSpeed) : R := (g * (tan_ub_MaxBank / h))%R.Definition rho_lb (h : TypeSpeed) : R := (g * (tan_lb_MaxBank / h))%R.

Lemma rho_ub_0 : forall h : TypeSpeed, (rho h < rho_ub h)%R.