reserve S,S9 for non void Signature,
  f,g for Function;

theorem Th40:
  f,g form_a_replacement_in S iff (the carrier of S)-indexing f, (
the carrier' of S)-indexing g form_morphism_between S, S with-replacement (f,g)
            by Th30,Th31,Def4;
