
theorem PFO:
  for f be empty XFinSequence holds XProduct f = 1
  proof
    len <%>COMPLEX = 0;
    hence thesis by BINOP_2:6,AFINSQ_2:def 8;
  end;
