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 Th37:
  for L being non degenerated non empty doubleLoopStr, z being Element of L
  holds LC <%z,1.L%> = 1.L
  proof
    let L be non degenerated non empty doubleLoopStr;
    let z be Element of L;
    len <%z,1.L%> = 2 by POLYNOM5:40;
    hence thesis by Lm1,POLYNOM5:38;
  end;
