:: deftheorem Def20 defines DiscrCat ALTCAT_1:def 20 :
for A being non empty set
for b2 being non empty strict quasi-discrete AltCatStr holds
( b2 = DiscrCat A iff ( the carrier of b2 = A & ( for i being Object of b2 holds <^i,i^> = {(id i)} ) ) );