reserve r,t for Real;
reserve i for Integer;
reserve k,n for Nat;
reserve p for Polynomial of F_Real;
reserve e for Element of F_Real;
reserve L for non empty ZeroStr;
reserve z,z0,z1,z2 for Element of L;

theorem Th22:
  <%z0,z1,z2%>.1 = z1
  proof
A1: dom(0_.L+*(0,z0)) = dom 0_.L by FUNCT_7:30
    .= NAT by FUNCOP_1:13;
    thus <%z0,z1,z2%>.1 = (0_.L+*(0,z0)+*(1,z1)).1 by FUNCT_7:32
    .= z1 by A1,FUNCT_7:31;
  end;
