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;
reserve p,q for Polynomial of F_Real;

theorem
  Eval(Leading-Monomial p) = FPower(p.(len p-'1),len p-'1)
  proof
    set l = Leading-Monomial p;
    set m = len p-'1;
    reconsider f = FPower(p.m,m) as Function of REAL,REAL;
    Eval(l) = f
    proof
      let r be Element of REAL;
      thus (Eval(l)).r = eval(l,In(r,F)) by POLYNOM5:def 13
      .= p.m*power(In(r,F),m) by POLYNOM4:22
      .= f.r by POLYNOM5:def 12;
    end;
    hence thesis;
  end;
