theorem
  F is idempotent implies F[:](f,f.y).y = f.y
proof
  assume
A1: F is idempotent;
  thus F[:](f,f.y).y = F.(f.y,f.y) by Th48
    .= f.y by A1;
end;
