proposition: Lemma max_explicit : forall m n, { p | Nat.max m n = (m + p)%nat}.
proof: Proof. intros m n ; destruct (lt_dec m n) ; [exists (n - m)%nat | exists 0%nat] ; destruct (Nat.max_spec m n) ; lia. Qed.
imports: Reals Rsequence_def Rpser_def Rpser_def_simpl Rpser_base_facts Rsequence_facts Rsequence_sums_facts Rsequence_rewrite_facts Rpow_facts Lra PeanoNat MyRIneq MyNeq Rinterval RFsequence RFsequence_facts Tactics