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