theorem Prop2c: :: Proposition 2 c)
  X <> {} implies kappa (X,{}R) = 0
  proof
    assume X <> {}; then
    kappa (X,{}R) = card (X /\ {}R) / card X by KappaDef;
    hence thesis;
  end;
