theorem
  R partially_orders X implies R|_2 X is being_partial-order
by Lm8,Lm9,Lm10;
