theorem Prop3b:
  Y c= Z implies kappa_2 (X,Y) <= kappa_2 (X,Z)
  proof
    assume Y c= Z; then
    X` \/ Y c= X` \/ Z by XBOOLE_1:9;
    hence thesis by XREAL_1:72,NAT_1:43;
  end;
