proposition: Lemma g_pos : (0 < g)%R.
proof: Proof. unfold g in |- *; unfold Rdiv in |- *; apply Rmult_lt_reg_l with 10%R. prove_sup. rewrite Rmult_0_r; rewrite <- Rmult_comm; rewrite Rmult_assoc; rewrite <- Rinv_l_sym; [ prove_sup | discrR ]. Qed.
imports: Reals trajectory_const