Fixpoint getNats s n :=
  match n with 
    | O => nil
    | S n' => (s + n')%nat :: (getNats s n')
  end.

Lemma series_le : forall n (f1 f2 : nat -> Rat -> Prop) r1 r2, (forall i v1 v2, f1 i v1 -> f2 i v2 -> v2 <= v1) -> sumList_rel f1 (getNats O n) r1 -> sumList_rel f2 (getNats O n) r2 -> r2 <= r1.