theorem Th97:
  for S being with_common_domain functional set, f be Function
     st f in S  holds dom f = dom product" S
  proof let S be with_common_domain functional set, f be Function such that
A1: f in S;
   thus dom f = DOM S by A1,Lm2
     .= dom product" S by Def12;
  end;
