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.

(* Specifications: *)
Lemma TypeSpeed_pos : forall h : TypeSpeed, (0 < h)%R.
Lemma g_pos : (0 < g)%R.
Lemma rho_ub_0 : forall h : TypeSpeed, (rho h < rho_ub h)%R.
Lemma rho_lb_0 : forall h : TypeSpeed, (rho_lb h < rho h)%R.