ex A being finite Subset of (QuasiAdjs C) ex q being pure expression of C, a_Type C st T = [A,q] by Th72;
hence for b1 being set st b1 = T `1 holds
b1 is finite ; :: thesis: verum