
theorem Th41: :: PCAmax:
for R being with_finite_clique# antisymmetric transitive RelStr,
    A being StableSet of R
 st maximals R c= A holds A = maximals R
proof
 let R be with_finite_clique# antisymmetric transitive RelStr,
     A be StableSet of R such that
A1: maximals R c= A;
  A c= maximals R proof
    let x be object;
    assume A2: x in A;
    then A3: R is non empty;
    reconsider x9 = x as Element of R by A2;
     consider y being Element of R such that
  A4: y is_maximal_in [#]R and
  A5: y = x9 or x9 < y by A3,Th38;
  A6: y = x9 or x9 <= y by A5;
      y in maximals R by A3,A4,Def10;
    hence x in maximals R by A1,A2,A6,Def2;
  end;
  hence A = maximals R by A1;
end;
