reserve c for Complex;
reserve r for Real;
reserve m,n for Nat;
reserve f for complex-valued Function;
reserve f,g for differentiable Function of REAL,REAL;
reserve L for non empty ZeroStr;
reserve x for Element of L;

theorem Th28:
  seq(n,0.L) = 0_.L
  proof
    let m be Element of NAT;
    per cases;
    suppose m = n;
      hence seq(n,0.L).m = 0.L by Th24
      .= (0_.L).m;
    end;
    suppose m <> n;
      hence seq(n,0.L).m = (0_.L).m by FUNCT_7:32;
    end;
  end;
