reserve n,m,k for Nat;
reserve r,r1 for Real;
reserve f,seq,seq1 for Real_Sequence;
reserve x,y for set;
reserve e1,e2 for ExtReal;

theorem
  seq is decreasing implies for n st 0<n holds seq.n<seq.0 by Th4;
