theorem Th9:
  for f being involutive Function of A,A holds f*f = id A
  proof
    let f be involutive Function of A,A;
A1: dom f = A by FUNCT_2:52;
    then rng f c= dom f;
    hence thesis by A1,Th7;
  end;
