theorem Th6:
  for r being Element of REAL holds lim (NAT --> r) = r
  proof
    let r be Element of REAL;
    thus lim (NAT --> r) = (NAT --> r).0 by SEQ_4:26
    .= r;
  end;
