theorem
  X has_upper_Zorn_property_wrt R~ iff X has_lower_Zorn_property_wrt R
proof
  R~~ = R;
  hence thesis by Th51;
end;
