theorem Th32:
  A c= B implies
    ClosedProd(No_Ord A,A,A) = ClosedProd(No_Ord B,A,A)
proof
  assume A c= B;
  then No_Ord A /\ [:BeforeGames A,BeforeGames A:] =
  No_Ord B /\ [:BeforeGames A,BeforeGames A:] by Th31;
  hence thesis by Th15;
end;
