theorem Th6:
  Product (<*>ExtREAL) = 1
proof
  Product <*>ExtREAL = multextreal $$ (<*>ExtREAL ) by Def2;
  hence thesis by Th5,FINSOP_1:10;
end;
