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
  z <> 0.L implies
  for p being Polynomial of L st p = 0_.L +* (n,z) holds deg p = n
  proof
    assume
A1: z <> 0.L;
    let p be Polynomial of L;
    assume p = 0_.L +* (n,z);
    hence deg p = n+1-1 by A1,Th18
    .= n;
  end;
