(* Some usefull constants *)
Definition g : R := (322 / 10)%R.Definition ConflictRange : R := 200%R.Definition MinSpeed : R := 201%R.Definition MaxSpeed : R := 880%R.Definition MaxBank : R := (61 / 100)%R.(**********)
Record TypeSpeed : Type := mkTypeSpeed
  {v :> R; v_cond1 : (MinSpeed <= v)%R; v_cond2 : (v <= MaxSpeed)%R}.(**********)
Record TypeSpeed : Type := mkTypeSpeed
  {v :> R; v_cond1 : (MinSpeed <= v)%R; v_cond2 : (v <= MaxSpeed)%R}.(**********)
Record TypeSpeed : Type := mkTypeSpeed
  {v :> R; v_cond1 : (MinSpeed <= v)%R; v_cond2 : (v <= MaxSpeed)%R}.(**********)
Record TypeSpeed : Type := mkTypeSpeed
  {v :> R; v_cond1 : (MinSpeed <= v)%R; v_cond2 : (v <= MaxSpeed)%R}.(**********)
Record TypeSpeed : Type := mkTypeSpeed
  {v :> R; v_cond1 : (MinSpeed <= v)%R; v_cond2 : (v <= MaxSpeed)%R}.Definition tan_lb_MaxBank : R := (6 / 10)%R.Definition tan_ub_MaxBank : R := (7 / 10)%R.

Lemma tanBank_def : forall x : R, (- MaxBank <= x)%R -> (x <= MaxBank)%R -> cos x <> 0%R.