theorem Th10:
  for f being Function of A,A st f*f = id A holds f is involutive
  proof
    let f be Function of A,A;
    dom f = A by FUNCT_2:52;
    hence thesis by Th8;
  end;
