
theorem Th8:
  |.<*>the carrier of F_Complex.| = <*>REAL
proof
  len |.<*>the carrier of F_Complex.| = len <*>the carrier of F_Complex by Def2
    .= 0;
  hence thesis;
end;
