:: deftheorem Def1 defines QC-alphabet QC_LANG1:def 1 :
for b1 being set holds
( b1 is QC-alphabet iff ( b1 is non empty set & ex X being set st
( NAT c= X & b1 = [:NAT,X:] ) ) );