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

Lemma sumList_le : forall (A : Set)(ls : list A)(f1 f2 : A -> Rat), (forall a, In a ls -> f1 a <= f2 a) -> sumList ls f1 <= sumList ls f2.