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 TypeSpeed_pos : forall h : TypeSpeed, (0 < h)%R.