
theorem  :: Proposition 5 3H
  for R being non empty reflexive RelStr,
      X being Subset of R holds
    X c= UAp X
  proof
    let R be non empty reflexive RelStr,
        X be Subset of R;
    let y be object;
    assume
A1: y in X; then
    y in Class (the InternalRel of R,y) by Th4; then
    Class (the InternalRel of R,y) meets X by A1,XBOOLE_0:def 4;
    hence thesis by A1;
  end;
