reserve X for set;

theorem
  the carrier of InclPoset X = X & the InternalRel of InclPoset X = RelIncl X;
