 reserve A, B, C, A1, B1, C1, A2, B2, C2, C3 for Point of TOP-REAL 2,
  lambda, mu, nu, alpha, beta, gamma for Real,
  X, Y, Z for Subset of TOP-REAL 2;

theorem
  Th7: the_area_of_polygon3((1 - lambda) * A + lambda * A1, B, C) =
  (1 - lambda) * the_area_of_polygon3(A, B, C) +
  lambda * the_area_of_polygon3(A1, B, C)
proof
  the_area_of_polygon3((1 - lambda) * A + lambda * A1, B, C) =
  ((((1- lambda) * A `1 + lambda * A1 `1) * B `2
  - B `1 * ((1- lambda) * A + lambda * A1) `2)
  + (B `1 * C `2 - C `1 * B `2) + (C `1 * ((1- lambda) * A + lambda * A1) `2
  - ((1- lambda) * A + lambda * A1) `1 * C `2)) / 2 by Th4
  .= ((((1- lambda) * A `1 + lambda * A1 `1) * B `2 -
  B `1 * ((1- lambda) * A `2 + lambda * A1 `2)) + (B `1 * C `2 - C `1 * B `2)
  + (C `1 * ((1- lambda) * A + lambda * A1) `2
  - ((1- lambda) * A + lambda * A1) `1 * C `2)) / 2 by Th4
  .= ((((1- lambda) * A `1 + lambda * A1 `1) * B `2 -
  B `1 * ((1- lambda) * A `2 + lambda * A1 `2)) + (B `1 * C `2 - C `1 * B `2)
  + (C `1 * ((1- lambda) * A `2 + lambda * A1 `2)
  - ((1- lambda) * A + lambda * A1) `1 * C `2)) / 2 by Th4
  .= ((((1- lambda) * A `1 + lambda * A1 `1) * B `2 -
  B `1 * ((1- lambda) * A `2 + lambda * A1 `2)) + (B `1 * C `2 - C `1 * B `2)
  + (C `1 * ((1- lambda) * A `2 + lambda * A1 `2)
  - ((1- lambda) * A `1 + lambda * A1 `1) * C `2)) / 2 by Th4;
  hence thesis;
end;
