
theorem Th36:
  for S1, S2, T1, T2 being complete LATTICE st S1, S2
  are_isomorphic & T1, T2 are_isomorphic holds UPS(S2, T1), UPS(S1, T2)
  are_isomorphic
proof
  let S1, S2, T1, T2 be complete LATTICE;
  given f being Function of S1, S2 such that
A1: f is isomorphic;
  given g being Function of T1, T2 such that
A2: g is isomorphic;
  take UPS(f, g);
  thus thesis by A1,A2,Th35;
end;
