<< hyp.q

(-1)^(i + j + k + l + m) 
      q^(-j (-be + ga + i - 2 k - X + Z) - 
            k (al + be - ga - i + X + Y - 1) + Binomial[i, 2]) 
      Binomialq[be - ga, i] Binomialq[-be - n, j] 
      Binomialq[al + be - 1 + n, k]*Binomialq[ga - al - be - n, l] 
      pq[q^be, n] pq[q^(al + be - ga), n]/pq[q^(al + be), n]/
        pq[q, n]*Binomialq[n, m]

Solve[{i + l + n - m == X, j + m == Y, 
        k + l == Z}, {l, m, n}]

%% /. %[[1]]

SUM[%, {j, 0, Infinity}]

% /. SUMph

% /. S2101

SUM[%, {k, 0, Infinity}]

% /. SUMph

% /. S2101

SUM[%, {i, 0, Infinity}]

% /. SUMph

% /. S3201

% //. zus3

PosListe[%]

Ers[%%, zerl, {4}]

PosListe[%]

Ers[%%, zerl, {7}]

PosListe[%]

Ers[%%, trans, {9}]

PosListe[%]

Ers[%%, neg1, {11}]

PosListe[%]

Ers[%%, neg2, {13}]

PosListe[%]

Ers[%%, trans, {14}]

PosListe[%]

Ers[%%, neg2, {12}]

PosListe[%]

Ers[%%, trans, {9}]

PosListe[%]

Ers[%%, zerl, {12}]

PosListe[%]

Ers[%%, zerl, {9}]

PosListe[%]

Ers[%%, neg1, {12}]

PosListe[%]

Ers[%%, trans, {14}]

PosListe[%]

% //. zus3

%%

PosListe[%]

Ers[%%, zerl, {7}]

PosListe[%]

Ers[%%, trans, {14}]

PosListe[%]

Ers[%%, trans, {12}]

% /. SimplifyPQ