reserve a, b, n for Nat,
  r for Real,
  f for FinSequence of REAL;
reserve p for Prime;

theorem Th11:
  <*>REAL |^ a = <*>REAL
proof
  len (<*>REAL |^ a) = len <*>REAL by Def1
    .= 0;
  hence thesis;
end;
