let R be finite RelStr ; :: thesis: clique# R <= card the carrier of R
consider C being finite Clique of R such that
A: card C = clique# R by DILWORTH:def 4;
card C c= card the carrier of R by CARD_1:27;
hence clique# R <= card the carrier of R by A, NAT_1:40; :: thesis: verum