Protect[c];

\(\(\( (*LevelConnections*) \)\(
\)\(\(LevelConnections = {xRIrs -> \(c["R[X,X,P,X,X,X]"]\)[t] + \(c["R[X,X,X,P,X,X]"]\)[t], 

          xRShc -> \(c["R[X,X,X,X,P,X]"]\)[
                t] + \(c["R[X,X,X,X,X,P]"]\)[t], 

          xRIrsb -> \(c["IRS[R,X,X,X,X,X,X]"]\)[t], 
\(c["RXpIrs"]\)[
              t] -> xRIrs - xRIrsb, 

          xIrsPi3k1 -> \(c["IRS[X,P,X,X,X,X,X]"]\)[t], 

          xIrsPi3k2 -> \(c["IRS[X,X,P,X,X,X,X]"]\)[t], 

          xIrsPi3k3 -> \(c["IRS[X,X,X,P,X,X,X]"]\)[t], 

          xIrsPi3k4 -> \(c["IRS[X,X,X,X,P,X,X]"]\)[t], 

          xIrsShp2 -> \(c["IRS[X,X,X,X,X,P,X]"]\)[t], 

          xIrsGrb2 -> \(c["IRS[X,X,X,X,X,X,P]"]\)[t], 

          xRShcb -> \(c["Shc[R,X]"]\)[t], 
\(c["RXpShc"]\)[t] -> 
            xRShc - xRShcb, 
xShc -> \(c["Shc[X,P]"]\)[t], 

          xIrsGrb2b -> \(c["Grb2[IRS,X]"]\)[t], 
\(c["IrsXpGrb2"]\)[
              t] -> xIrsGrb2 - xIrsGrb2b, 

          xShcb -> \(c["Grb2[Shc,X]"]\)[t], 
\(c["ShcXp"]\)[t] -> 
            xShc - xShcb, 
xIrsPi3k1b -> \(c["PI3K[IRS1]"]\)[t], 

          xIrsPi3k2b -> \(c["PI3K[IRS2]"]\)[t], 

          xIrsPi3k3b -> \(c["PI3K[IRS3]"]\)[t], 

          xIrsPi3k4b -> \(c["PI3K[IRS4]"]\)[t], 
\(c["IrsXpPi3k1"]\)[
              t] -> xIrsPi3k1 - xIrsPi3k1b, 
\(c["IrsXpPi3k2"]\)[t] -> 
            xIrsPi3k2 - xIrsPi3k2b, 
\(c["IrsXpPi3k3"]\)[t] -> 
            xIrsPi3k3 - xIrsPi3k3b, 
\(c["IrsXpPi3k4"]\)[t] -> 
            xIrsPi3k4 - xIrsPi3k4b, 

          xIrsShp2b -> \(c["SHP2[IRS]"]\)[t], 
\(c["IrsXpShp2"]\)[
              t] -> xIrsShp2 - xIrsShp2b};\)\(
\)
    \)\)\)

\(\(\( (*AlgebraicRelations*) \)\(
\)\(\(AlgebraicRelations = {};\)\(
\)
    \)\)\)

\(\(\( (*ClampedConcAndMolecularBalances*) \)\(
\)\(\(ClampedConcAndMolecularBalances = {\(c["Ins"]\)[t] -> 100};\)\(
\)
    \)\)\)

\(\(\( (*ReactionRates*) \)\(
\)\(\(ReactionRates = {r0 -> 
            ki1*\(c["R[0,0,0,0,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,0,0,0,0]"]\)[t], 

          r1 -> ki1*\(c["R[0,0,0,0,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,0,0,0,P]"]\)[t], 

          r2 -> ki1*\(c["R[0,0,0,0,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,0,0,P,0]"]\)[t], 

          r3 -> ki1*\(c["R[0,0,0,0,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,0,0,P,P]"]\)[t], 

          r4 -> ki1*\(c["R[0,0,0,P,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,0,P,0,0]"]\)[t], 

          r5 -> ki1*\(c["R[0,0,0,P,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,0,P,0,P]"]\)[t], 

          r6 -> ki1*\(c["R[0,0,0,P,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,0,P,P,0]"]\)[t], 

          r7 -> ki1*\(c["R[0,0,0,P,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,0,P,P,P]"]\)[t], 

          r8 -> ki1*\(c["R[0,0,P,0,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,P,0,0,0]"]\)[t], 

          r9 -> ki1*\(c["R[0,0,P,0,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,P,0,0,P]"]\)[t], 

          r10 -> ki1*\(c["R[0,0,P,0,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,P,0,P,0]"]\)[t], 

          r11 -> ki1*\(c["R[0,0,P,0,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,P,0,P,P]"]\)[t], 

          r12 -> ki1*\(c["R[0,0,P,P,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,P,P,0,0]"]\)[t], 

          r13 -> ki1*\(c["R[0,0,P,P,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,P,P,0,P]"]\)[t], 

          r14 -> ki1*\(c["R[0,0,P,P,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,P,P,P,0]"]\)[t], 

          r15 -> ki1*\(c["R[0,0,P,P,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[I,0,P,P,P,P]"]\)[t], 

          r16 -> ki1*\(c["R[0,0,0,0,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,0,0,0,0]"]\)[t], 

          r17 -> ki1*\(c["R[0,0,0,0,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,0,0,0,P]"]\)[t], 

          r18 -> ki1*\(c["R[0,0,0,0,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,0,0,P,0]"]\)[t], 

          r19 -> ki1*\(c["R[0,0,0,0,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,0,0,P,P]"]\)[t], 

          r20 -> ki1*\(c["R[0,0,0,P,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,0,P,0,0]"]\)[t], 

          r21 -> ki1*\(c["R[0,0,0,P,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,0,P,0,P]"]\)[t], 

          r22 -> ki1*\(c["R[0,0,0,P,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,0,P,P,0]"]\)[t], 

          r23 -> ki1*\(c["R[0,0,0,P,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,0,P,P,P]"]\)[t], 

          r24 -> ki1*\(c["R[0,0,P,0,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,P,0,0,0]"]\)[t], 

          r25 -> ki1*\(c["R[0,0,P,0,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,P,0,0,P]"]\)[t], 

          r26 -> ki1*\(c["R[0,0,P,0,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,P,0,P,0]"]\)[t], 

          r27 -> ki1*\(c["R[0,0,P,0,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,P,0,P,P]"]\)[t], 

          r28 -> ki1*\(c["R[0,0,P,P,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,P,P,0,0]"]\)[t], 

          r29 -> ki1*\(c["R[0,0,P,P,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,P,P,0,P]"]\)[t], 

          r30 -> ki1*\(c["R[0,0,P,P,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,P,P,P,0]"]\)[t], 

          r31 -> ki1*\(c["R[0,0,P,P,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki1d*\(c["R[0,I,P,P,P,P]"]\)[t], 

          r32 -> ki2*\(c["R[I,0,0,0,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,0,0,0]"]\)[t], 

          r33 -> ki2*\(c["R[I,0,0,0,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,0,0,P]"]\)[t], 

          r34 -> ki2*\(c["R[I,0,0,0,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,0,P,0]"]\)[t], 

          r35 -> ki2*\(c["R[I,0,0,0,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,0,P,P]"]\)[t], 

          r36 -> ki2*\(c["R[I,0,0,P,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,P,0,0]"]\)[t], 

          r37 -> ki2*\(c["R[I,0,0,P,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,P,0,P]"]\)[t], 

          r38 -> ki2*\(c["R[I,0,0,P,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,P,P,0]"]\)[t], 

          r39 -> ki2*\(c["R[I,0,0,P,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,P,P,P]"]\)[t], 

          r40 -> ki2*\(c["R[I,0,P,0,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,0,0,0]"]\)[t], 

          r41 -> ki2*\(c["R[I,0,P,0,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,0,0,P]"]\)[t], 

          r42 -> ki2*\(c["R[I,0,P,0,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,0,P,0]"]\)[t], 

          r43 -> ki2*\(c["R[I,0,P,0,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,0,P,P]"]\)[t], 

          r44 -> ki2*\(c["R[I,0,P,P,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,P,0,0]"]\)[t], 

          r45 -> ki2*\(c["R[I,0,P,P,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,P,0,P]"]\)[t], 

          r46 -> ki2*\(c["R[I,0,P,P,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,P,P,0]"]\)[t], 

          r47 -> ki2*\(c["R[I,0,P,P,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,P,P,P]"]\)[t], 

          r48 -> ki2*\(c["R[0,I,0,0,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,0,0,0]"]\)[t], 

          r49 -> ki2*\(c["R[0,I,0,0,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,0,0,P]"]\)[t], 

          r50 -> ki2*\(c["R[0,I,0,0,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,0,P,0]"]\)[t], 

          r51 -> ki2*\(c["R[0,I,0,0,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,0,P,P]"]\)[t], 

          r52 -> ki2*\(c["R[0,I,0,P,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,P,0,0]"]\)[t], 

          r53 -> ki2*\(c["R[0,I,0,P,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,P,0,P]"]\)[t], 

          r54 -> ki2*\(c["R[0,I,0,P,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,P,P,0]"]\)[t], 

          r55 -> ki2*\(c["R[0,I,0,P,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,0,P,P,P]"]\)[t], 

          r56 -> ki2*\(c["R[0,I,P,0,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,0,0,0]"]\)[t], 

          r57 -> ki2*\(c["R[0,I,P,0,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,0,0,P]"]\)[t], 

          r58 -> ki2*\(c["R[0,I,P,0,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,0,P,0]"]\)[t], 

          r59 -> ki2*\(c["R[0,I,P,0,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,0,P,P]"]\)[t], 

          r60 -> ki2*\(c["R[0,I,P,P,0,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,P,0,0]"]\)[t], 

          r61 -> ki2*\(c["R[0,I,P,P,0,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,P,0,P]"]\)[t], 

          r62 -> ki2*\(c["R[0,I,P,P,P,0]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,P,P,0]"]\)[t], 

          r63 -> ki2*\(c["R[0,I,P,P,P,P]"]\)[t]*\(c["Ins"]\)[t] - 
              ki2d*\(c["R[I,I,P,P,P,P]"]\)[t], 

          r64 -> kp10*\(c["R[0,0,0,0,0,0]"]\)[t] - 
              kp10d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,P,0,0,0]"]\)[t], 

          r65 -> kp10*\(c["R[0,0,0,0,0,P]"]\)[t] - 
              kp10d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,P,0,0,P]"]\)[t], 

          r66 -> kp10*\(c["R[0,0,0,0,P,0]"]\)[t] - 
              kp10d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,P,0,P,0]"]\)[t], 

          r67 -> kp10*\(c["R[0,0,0,0,P,P]"]\)[t] - 
              kp10d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,P,0,P,P]"]\)[t], 

          r68 -> kp10*\(c["R[0,0,0,P,0,0]"]\)[t] - 
              kp10d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,P,P,0,0]"]\)[t], 

          r69 -> kp10*\(c["R[0,0,0,P,0,P]"]\)[t] - 
              kp10d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,P,P,0,P]"]\)[t], 

          r70 -> kp10*\(c["R[0,0,0,P,P,0]"]\)[t] - 
              kp10d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,P,P,P,0]"]\)[t], 

          r71 -> 
            kp10*\(c["R[0,0,0,P,P,P]"]\)[t] - 
              kp10d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,P,P,P,P]"]\)[t], 

          r72 -> kp11*\(c["R[I,0,0,0,0,0]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,P,0,0,0]"]\)[t], 

          r73 -> kp11*\(c["R[I,0,0,0,0,P]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,P,0,0,P]"]\)[t], 

          r74 -> kp11*\(c["R[I,0,0,0,P,0]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,P,0,P,0]"]\)[t], 

          r75 -> kp11*\(c["R[I,0,0,0,P,P]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,P,0,P,P]"]\)[t], 

          r76 -> kp11*\(c["R[I,0,0,P,0,0]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,P,P,0,0]"]\)[t], 

          r77 -> kp11*\(c["R[I,0,0,P,0,P]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,P,P,0,P]"]\)[t], 

          r78 -> kp11*\(c["R[I,0,0,P,P,0]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,P,P,P,0]"]\)[t], 

          r79 -> kp11*\(c["R[I,0,0,P,P,P]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,P,P,P,P]"]\)[t], 

          r80 -> kp11*\(c["R[0,I,0,0,0,0]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,P,0,0,0]"]\)[t], 

          r81 -> kp11*\(c["R[0,I,0,0,0,P]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,P,0,0,P]"]\)[t], 

          r82 -> kp11*\(c["R[0,I,0,0,P,0]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,P,0,P,0]"]\)[t], 

          r83 -> kp11*\(c["R[0,I,0,0,P,P]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,P,0,P,P]"]\)[t], 

          r84 -> kp11*\(c["R[0,I,0,P,0,0]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,P,P,0,0]"]\)[t], 

          r85 -> kp11*\(c["R[0,I,0,P,0,P]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,P,P,0,P]"]\)[t], 

          r86 -> kp11*\(c["R[0,I,0,P,P,0]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,P,P,P,0]"]\)[t], 

          r87 -> 
            kp11*\(c["R[0,I,0,P,P,P]"]\)[t] - 
              kp11d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,P,P,P,P]"]\)[t], 

          r88 -> kp12*\(c["R[I,I,0,0,0,0]"]\)[t] - 
              kp12d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,P,0,0,0]"]\)[t], 

          r89 -> kp12*\(c["R[I,I,0,0,0,P]"]\)[t] - 
              kp12d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,P,0,0,P]"]\)[t], 

          r90 -> kp12*\(c["R[I,I,0,0,P,0]"]\)[t] - 
              kp12d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,P,0,P,0]"]\)[t], 

          r91 -> kp12*\(c["R[I,I,0,0,P,P]"]\)[t] - 
              kp12d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,P,0,P,P]"]\)[t], 

          r92 -> kp12*\(c["R[I,I,0,P,0,0]"]\)[t] - 
              kp12d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,P,P,0,0]"]\)[t], 

          r93 -> kp12*\(c["R[I,I,0,P,0,P]"]\)[t] - 
              kp12d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,P,P,0,P]"]\)[t], 

          r94 -> kp12*\(c["R[I,I,0,P,P,0]"]\)[t] - 
              kp12d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,P,P,P,0]"]\)[t], 

          r95 -> kp12*\(c["R[I,I,0,P,P,P]"]\)[t] - 
              kp12d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,P,P,P,P]"]\)[t], 

          r96 -> kp20*\(c["R[0,0,0,0,0,0]"]\)[t] - 
              kp20d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,0,P,0,0]"]\)[t], 

          r97 -> kp20*\(c["R[0,0,0,0,0,P]"]\)[t] - 
              kp20d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,0,P,0,P]"]\)[t], 

          r98 -> kp20*\(c["R[0,0,0,0,P,0]"]\)[t] - 
              kp20d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,0,P,P,0]"]\)[t], 

          r99 -> kp20*\(c["R[0,0,0,0,P,P]"]\)[t] - 
              kp20d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,0,P,P,P]"]\)[t], 

          r100 -> kp20*\(c["R[0,0,P,0,0,0]"]\)[t] - 
              kp20d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,P,P,0,0]"]\)[t], 

          r101 -> kp20*\(c["R[0,0,P,0,0,P]"]\)[t] - 
              kp20d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,P,P,0,P]"]\)[t], 

          r102 -> kp20*\(c["R[0,0,P,0,P,0]"]\)[t] - 
              kp20d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,P,P,P,0]"]\)[t], 

          r103 -> 
            kp20*\(c["R[0,0,P,0,P,P]"]\)[t] - 
              kp20d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,0,P,P,P,P]"]\)[t], 

          r104 -> kp21*\(c["R[I,0,0,0,0,0]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,0,P,0,0]"]\)[t], 

          r105 -> kp21*\(c["R[I,0,0,0,0,P]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,0,P,0,P]"]\)[t], 

          r106 -> kp21*\(c["R[I,0,0,0,P,0]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,0,P,P,0]"]\)[t], 

          r107 -> kp21*\(c["R[I,0,0,0,P,P]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,0,P,P,P]"]\)[t], 

          r108 -> kp21*\(c["R[I,0,P,0,0,0]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,P,P,0,0]"]\)[t], 

          r109 -> kp21*\(c["R[I,0,P,0,0,P]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,P,P,0,P]"]\)[t], 

          r110 -> kp21*\(c["R[I,0,P,0,P,0]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,P,P,P,0]"]\)[t], 

          r111 -> kp21*\(c["R[I,0,P,0,P,P]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,0,P,P,P,P]"]\)[t], 

          r112 -> kp21*\(c["R[0,I,0,0,0,0]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,0,P,0,0]"]\)[t], 

          r113 -> kp21*\(c["R[0,I,0,0,0,P]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,0,P,0,P]"]\)[t], 

          r114 -> kp21*\(c["R[0,I,0,0,P,0]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,0,P,P,0]"]\)[t], 

          r115 -> kp21*\(c["R[0,I,0,0,P,P]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,0,P,P,P]"]\)[t], 

          r116 -> kp21*\(c["R[0,I,P,0,0,0]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,P,P,0,0]"]\)[t], 

          r117 -> kp21*\(c["R[0,I,P,0,0,P]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,P,P,0,P]"]\)[t], 

          r118 -> kp21*\(c["R[0,I,P,0,P,0]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,P,P,P,0]"]\)[t], 

          r119 -> kp21*\(c["R[0,I,P,0,P,P]"]\)[t] - 
              kp21d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[0,I,P,P,P,P]"]\)[t], 

          r120 -> kp22*\(c["R[I,I,0,0,0,0]"]\)[t] - 
              kp22d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,0,P,0,0]"]\)[t], 

          r121 -> kp22*\(c["R[I,I,0,0,0,P]"]\)[t] - 
              kp22d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,0,P,0,P]"]\)[t], 

          r122 -> kp22*\(c["R[I,I,0,0,P,0]"]\)[t] - 
              kp22d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,0,P,P,0]"]\)[t], 

          r123 -> kp22*\(c["R[I,I,0,0,P,P]"]\)[t] - 
              kp22d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,0,P,P,P]"]\)[t], 

          r124 -> kp22*\(c["R[I,I,P,0,0,0]"]\)[t] - 
              kp22d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,P,P,0,0]"]\)[t], 

          r125 -> kp22*\(c["R[I,I,P,0,0,P]"]\)[t] - 
              kp22d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,P,P,0,P]"]\)[t], 

          r126 -> kp22*\(c["R[I,I,P,0,P,0]"]\)[t] - 
              kp22d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,P,P,P,0]"]\)[t], 

          r127 -> kp22*\(c["R[I,I,P,0,P,P]"]\)[t] - 
              kp22d*\((\((xRIrs - xRIrsb)\)/
                    xRIrs)\)*\(c["R[I,I,P,P,P,P]"]\)[t], 

          r128 -> kp30*\(c["R[0,0,0,0,0,0]"]\)[t] - 
              kp30d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,0,0,P,0]"]\)[t], 

          r129 -> kp30*\(c["R[0,0,0,0,0,P]"]\)[t] - 
              kp30d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,0,0,P,P]"]\)[t], 

          r130 -> kp30*\(c["R[0,0,0,P,0,0]"]\)[t] - 
              kp30d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,0,P,P,0]"]\)[t], 

          r131 -> kp30*\(c["R[0,0,0,P,0,P]"]\)[t] - 
              kp30d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,0,P,P,P]"]\)[t], 

          r132 -> kp30*\(c["R[0,0,P,0,0,0]"]\)[t] - 
              kp30d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,P,0,P,0]"]\)[t], 

          r133 -> kp30*\(c["R[0,0,P,0,0,P]"]\)[t] - 
              kp30d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,P,0,P,P]"]\)[t], 

          r134 -> kp30*\(c["R[0,0,P,P,0,0]"]\)[t] - 
              kp30d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,P,P,P,0]"]\)[t], 

          r135 -> kp30*\(c["R[0,0,P,P,0,P]"]\)[t] - 
              kp30d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,P,P,P,P]"]\)[t], 

          r136 -> kp31*\(c["R[I,0,0,0,0,0]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,0,0,P,0]"]\)[t], 

          r137 -> kp31*\(c["R[I,0,0,0,0,P]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,0,0,P,P]"]\)[t], 

          r138 -> kp31*\(c["R[I,0,0,P,0,0]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,0,P,P,0]"]\)[t], 

          r139 -> kp31*\(c["R[I,0,0,P,0,P]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,0,P,P,P]"]\)[t], 

          r140 -> kp31*\(c["R[I,0,P,0,0,0]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,P,0,P,0]"]\)[t], 

          r141 -> kp31*\(c["R[I,0,P,0,0,P]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,P,0,P,P]"]\)[t], 

          r142 -> kp31*\(c["R[I,0,P,P,0,0]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,P,P,P,0]"]\)[t], 

          r143 -> kp31*\(c["R[I,0,P,P,0,P]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,P,P,P,P]"]\)[t], 

          r144 -> kp31*\(c["R[0,I,0,0,0,0]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,0,0,P,0]"]\)[t], 

          r145 -> kp31*\(c["R[0,I,0,0,0,P]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,0,0,P,P]"]\)[t], 

          r146 -> kp31*\(c["R[0,I,0,P,0,0]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,0,P,P,0]"]\)[t], 

          r147 -> kp31*\(c["R[0,I,0,P,0,P]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,0,P,P,P]"]\)[t], 

          r148 -> kp31*\(c["R[0,I,P,0,0,0]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,P,0,P,0]"]\)[t], 

          r149 -> kp31*\(c["R[0,I,P,0,0,P]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,P,0,P,P]"]\)[t], 

          r150 -> 
            kp31*\(c["R[0,I,P,P,0,0]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,P,P,P,0]"]\)[t], 

          r151 -> kp31*\(c["R[0,I,P,P,0,P]"]\)[t] - 
              kp31d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,P,P,P,P]"]\)[t], 

          r152 -> kp32*\(c["R[I,I,0,0,0,0]"]\)[t] - 
              kp32d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,0,0,P,0]"]\)[t], 

          r153 -> kp32*\(c["R[I,I,0,0,0,P]"]\)[t] - 
              kp32d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,0,0,P,P]"]\)[t], 

          r154 -> kp32*\(c["R[I,I,0,P,0,0]"]\)[t] - 
              kp32d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,0,P,P,0]"]\)[t], 

          r155 -> kp32*\(c["R[I,I,0,P,0,P]"]\)[t] - 
              kp32d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,0,P,P,P]"]\)[t], 

          r156 -> kp32*\(c["R[I,I,P,0,0,0]"]\)[t] - 
              kp32d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,P,0,P,0]"]\)[t], 

          r157 -> kp32*\(c["R[I,I,P,0,0,P]"]\)[t] - 
              kp32d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,P,0,P,P]"]\)[t], 

          r158 -> kp32*\(c["R[I,I,P,P,0,0]"]\)[t] - 
              kp32d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,P,P,P,0]"]\)[t], 

          r159 -> kp32*\(c["R[I,I,P,P,0,P]"]\)[t] - 
              kp32d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,P,P,P,P]"]\)[t], 

          r160 -> kp40*\(c["R[0,0,0,0,0,0]"]\)[t] - 
              kp40d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,0,0,0,P]"]\)[t], 

          r161 -> kp40*\(c["R[0,0,0,0,P,0]"]\)[t] - 
              kp40d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,0,0,P,P]"]\)[t], 

          r162 -> kp40*\(c["R[0,0,0,P,0,0]"]\)[t] - 
              kp40d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,0,P,0,P]"]\)[t], 

          r163 -> kp40*\(c["R[0,0,0,P,P,0]"]\)[t] - 
              kp40d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,0,P,P,P]"]\)[t], 

          r164 -> kp40*\(c["R[0,0,P,0,0,0]"]\)[t] - 
              kp40d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,P,0,0,P]"]\)[t], 

          r165 -> kp40*\(c["R[0,0,P,0,P,0]"]\)[t] - 
              kp40d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,P,0,P,P]"]\)[t], 

          r166 -> kp40*\(c["R[0,0,P,P,0,0]"]\)[t] - 
              kp40d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,P,P,0,P]"]\)[t], 

          r167 -> kp40*\(c["R[0,0,P,P,P,0]"]\)[t] - 
              kp40d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,0,P,P,P,P]"]\)[t], 

          r168 -> kp41*\(c["R[I,0,0,0,0,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,0,0,0,P]"]\)[t], 

          r169 -> kp41*\(c["R[I,0,0,0,P,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,0,0,P,P]"]\)[t], 

          r170 -> kp41*\(c["R[I,0,0,P,0,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,0,P,0,P]"]\)[t], 

          r171 -> kp41*\(c["R[I,0,0,P,P,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,0,P,P,P]"]\)[t], 

          r172 -> kp41*\(c["R[I,0,P,0,0,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,P,0,0,P]"]\)[t], 

          r173 -> kp41*\(c["R[I,0,P,0,P,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,P,0,P,P]"]\)[t], 

          r174 -> kp41*\(c["R[I,0,P,P,0,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,P,P,0,P]"]\)[t], 

          r175 -> kp41*\(c["R[I,0,P,P,P,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,0,P,P,P,P]"]\)[t], 

          r176 -> kp41*\(c["R[0,I,0,0,0,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,0,0,0,P]"]\)[t], 

          r177 -> kp41*\(c["R[0,I,0,0,P,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,0,0,P,P]"]\)[t], 

          r178 -> kp41*\(c["R[0,I,0,P,0,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,0,P,0,P]"]\)[t], 

          r179 -> kp41*\(c["R[0,I,0,P,P,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,0,P,P,P]"]\)[t], 

          r180 -> kp41*\(c["R[0,I,P,0,0,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,P,0,0,P]"]\)[t], 

          r181 -> kp41*\(c["R[0,I,P,0,P,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,P,0,P,P]"]\)[t], 

          r182 -> kp41*\(c["R[0,I,P,P,0,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,P,P,0,P]"]\)[t], 

          r183 -> kp41*\(c["R[0,I,P,P,P,0]"]\)[t] - 
              kp41d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[0,I,P,P,P,P]"]\)[t], 

          r184 -> kp42*\(c["R[I,I,0,0,0,0]"]\)[t] - 
              kp42d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,0,0,0,P]"]\)[t], 

          r185 -> kp42*\(c["R[I,I,0,0,P,0]"]\)[t] - 
              kp42d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,0,0,P,P]"]\)[t], 

          r186 -> kp42*\(c["R[I,I,0,P,0,0]"]\)[t] - 
              kp42d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,0,P,0,P]"]\)[t], 

          r187 -> kp42*\(c["R[I,I,0,P,P,0]"]\)[t] - 
              kp42d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,0,P,P,P]"]\)[t], 

          r188 -> kp42*\(c["R[I,I,P,0,0,0]"]\)[t] - 
              kp42d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,P,0,0,P]"]\)[t], 

          r189 -> kp42*\(c["R[I,I,P,0,P,0]"]\)[t] - 
              kp42d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,P,0,P,P]"]\)[t], 

          r190 -> kp42*\(c["R[I,I,P,P,0,0]"]\)[t] - 
              kp42d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,P,P,0,P]"]\)[t], 

          r191 -> kp42*\(c["R[I,I,P,P,P,0]"]\)[t] - 
              kp42d*\((\((xRShc - xRShcb)\)/
                    xRShc)\)*\(c["R[I,I,P,P,P,P]"]\)[t], 

          r192 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,0,0,0,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,0,0,0,0]"]\)[t], 

          r193 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,0,0,0,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,0,0,0,P]"]\)[t], 

          r194 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,0,0,0,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,0,0,P,0]"]\)[t], 

          r195 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,0,0,0,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,0,0,P,P]"]\)[t], 

          r196 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,0,0,P,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,0,P,0,0]"]\)[t], 

          r197 -> 
            kbirs*\(c["RXpIrs"]\)[t]*\(c["IRS[0,0,0,0,P,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,0,P,0,P]"]\)[t], 

          r198 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,0,0,P,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,0,P,P,0]"]\)[t], 

          r199 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,0,0,P,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,0,P,P,P]"]\)[t], 

          r200 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,0,P,0,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,P,0,0,0]"]\)[t], 

          r201 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,0,P,0,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,P,0,0,P]"]\)[t], 

          r202 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,0,P,0,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,P,0,P,0]"]\)[t], 

          r203 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,0,P,0,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,P,0,P,P]"]\)[t], 

          r204 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,0,P,P,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,P,P,0,0]"]\)[t], 

          r205 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,0,P,P,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,P,P,0,P]"]\)[t], 

          r206 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,0,P,P,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,P,P,P,0]"]\)[t], 

          r207 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,0,P,P,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,0,P,P,P,P]"]\)[t], 

          r208 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,0,0,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,0,0,0,0]"]\)[t], 

          r209 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,0,0,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,0,0,0,P]"]\)[t], 

          r210 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,0,0,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,0,0,P,0]"]\)[t], 

          r211 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,0,0,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,0,0,P,P]"]\)[t], 

          r212 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,0,P,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,0,P,0,0]"]\)[t], 

          r213 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,0,P,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,0,P,0,P]"]\)[t], 

          r214 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,0,P,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,0,P,P,0]"]\)[t], 

          r215 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,0,P,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,0,P,P,P]"]\)[t], 

          r216 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,P,0,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,P,0,0,0]"]\)[t], 

          r217 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,P,0,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,P,0,0,P]"]\)[t], 

          r218 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,P,0,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,P,0,P,0]"]\)[t], 

          r219 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,P,0,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,P,0,P,P]"]\)[t], 

          r220 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,P,P,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,P,P,0,0]"]\)[t], 

          r221 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,P,P,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,P,P,0,P]"]\)[t], 

          r222 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,P,P,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,P,P,P,0]"]\)[t], 

          r223 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,0,P,P,P,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,0,P,P,P,P,P]"]\)[t], 

          r224 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,0,0,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,0,0,0,0]"]\)[t], 

          r225 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,0,0,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,0,0,0,P]"]\)[t], 

          r226 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,0,0,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,0,0,P,0]"]\)[t], 

          r227 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,0,0,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,0,0,P,P]"]\)[t], 

          r228 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,0,P,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,0,P,0,0]"]\)[t], 

          r229 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,0,P,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,0,P,0,P]"]\)[t], 

          r230 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,0,P,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,0,P,P,0]"]\)[t], 

          r231 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,0,P,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,0,P,P,P]"]\)[t], 

          r232 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,P,0,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,P,0,0,0]"]\)[t], 

          r233 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,P,0,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,P,0,0,P]"]\)[t], 

          r234 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,P,0,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,P,0,P,0]"]\)[t], 

          r235 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,P,0,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,P,0,P,P]"]\)[t], 

          r236 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,P,P,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,P,P,0,0]"]\)[t], 

          r237 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,P,P,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,P,P,0,P]"]\)[t], 

          r238 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,P,P,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,P,P,P,0]"]\)[t], 

          r239 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,0,P,P,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,0,P,P,P,P]"]\)[t], 

          r240 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,P,0,0,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,0,0,0,0]"]\)[t], 

          r241 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,P,0,0,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,0,0,0,P]"]\)[t], 

          r242 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,P,0,0,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,0,0,P,0]"]\)[t], 

          r243 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,P,0,0,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,0,0,P,P]"]\)[t], 

          r244 -> 
            kbirs*\(c["RXpIrs"]\)[t]*\(c["IRS[0,P,P,0,P,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,0,P,0,0]"]\)[t], 

          r245 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,P,0,P,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,0,P,0,P]"]\)[t], 

          r246 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,P,0,P,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,0,P,P,0]"]\)[t], 

          r247 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,P,0,P,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,0,P,P,P]"]\)[t], 

          r248 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,P,P,0,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,P,0,0,0]"]\)[t], 

          r249 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,P,P,0,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,P,0,0,P]"]\)[t], 

          r250 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,P,P,0,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,P,0,P,0]"]\)[t], 

          r251 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,P,P,0,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,P,0,P,P]"]\)[t], 

          r252 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,P,P,P,0,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,P,P,0,0]"]\)[t], 

          r253 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,P,P,P,0,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,P,P,0,P]"]\)[t], 

          r254 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,P,P,P,P,0]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,P,P,P,0]"]\)[t], 

          r255 -> kbirs*\(c["RXpIrs"]\)[
                  t]*\(c["IRS[0,P,P,P,P,P,P]"]\)[t] - 
              kbirsd*\(c["IRS[R,P,P,P,P,P,P]"]\)[t], 

          r256 -> kirsp1*\(c["IRS[0,0,0,0,0,0,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,0,0,0,0]"]\)[t], 

          r257 -> kirsp1*\(c["IRS[0,0,0,0,0,0,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,0,0,0,P]"]\)[t], 

          r258 -> kirsp1*\(c["IRS[0,0,0,0,0,P,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,0,0,P,0]"]\)[t], 

          r259 -> 
            kirsp1*\(c["IRS[0,0,0,0,0,P,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,0,0,P,P]"]\)[t], 

          r260 -> kirsp1*\(c["IRS[0,0,0,0,P,0,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,0,P,0,0]"]\)[t], 

          r261 -> kirsp1*\(c["IRS[0,0,0,0,P,0,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,0,P,0,P]"]\)[t], 

          r262 -> kirsp1*\(c["IRS[0,0,0,0,P,P,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,0,P,P,0]"]\)[t], 

          r263 -> kirsp1*\(c["IRS[0,0,0,0,P,P,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,0,P,P,P]"]\)[t], 

          r264 -> kirsp1*\(c["IRS[0,0,0,P,0,0,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,P,0,0,0]"]\)[t], 

          r265 -> kirsp1*\(c["IRS[0,0,0,P,0,0,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,P,0,0,P]"]\)[t], 

          r266 -> kirsp1*\(c["IRS[0,0,0,P,0,P,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,P,0,P,0]"]\)[t], 

          r267 -> kirsp1*\(c["IRS[0,0,0,P,0,P,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,P,0,P,P]"]\)[t], 

          r268 -> kirsp1*\(c["IRS[0,0,0,P,P,0,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,P,P,0,0]"]\)[t], 

          r269 -> kirsp1*\(c["IRS[0,0,0,P,P,0,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,P,P,0,P]"]\)[t], 

          r270 -> kirsp1*\(c["IRS[0,0,0,P,P,P,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,P,P,P,0]"]\)[t], 

          r271 -> kirsp1*\(c["IRS[0,0,0,P,P,P,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,0,P,P,P,P]"]\)[t], 

          r272 -> 
            kirsp1*\(c["IRS[0,0,P,0,0,0,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,0,0,0,0]"]\)[t], 

          r273 -> kirsp1*\(c["IRS[0,0,P,0,0,0,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,0,0,0,P]"]\)[t], 

          r274 -> kirsp1*\(c["IRS[0,0,P,0,0,P,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,0,0,P,0]"]\)[t], 

          r275 -> kirsp1*\(c["IRS[0,0,P,0,0,P,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,0,0,P,P]"]\)[t], 

          r276 -> kirsp1*\(c["IRS[0,0,P,0,P,0,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,0,P,0,0]"]\)[t], 

          r277 -> kirsp1*\(c["IRS[0,0,P,0,P,0,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,0,P,0,P]"]\)[t], 

          r278 -> kirsp1*\(c["IRS[0,0,P,0,P,P,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,0,P,P,0]"]\)[t], 

          r279 -> kirsp1*\(c["IRS[0,0,P,0,P,P,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,0,P,P,P]"]\)[t], 

          r280 -> kirsp1*\(c["IRS[0,0,P,P,0,0,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,P,0,0,0]"]\)[t], 

          r281 -> kirsp1*\(c["IRS[0,0,P,P,0,0,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,P,0,0,P]"]\)[t], 

          r282 -> kirsp1*\(c["IRS[0,0,P,P,0,P,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,P,0,P,0]"]\)[t], 

          r283 -> kirsp1*\(c["IRS[0,0,P,P,0,P,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,P,0,P,P]"]\)[t], 

          r284 -> kirsp1*\(c["IRS[0,0,P,P,P,0,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,P,P,0,0]"]\)[t], 

          r285 -> 
            kirsp1*\(c["IRS[0,0,P,P,P,0,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,P,P,0,P]"]\)[t], 

          r286 -> kirsp1*\(c["IRS[0,0,P,P,P,P,0]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,P,P,P,0]"]\)[t], 

          r287 -> kirsp1*\(c["IRS[0,0,P,P,P,P,P]"]\)[t] - 
              kirsp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[0,P,P,P,P,P,P]"]\)[t], 

          r288 -> kirsp2*\(c["IRS[0,0,0,0,0,0,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,0,0,0,0]"]\)[t], 

          r289 -> kirsp2*\(c["IRS[0,0,0,0,0,0,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,0,0,0,P]"]\)[t], 

          r290 -> kirsp2*\(c["IRS[0,0,0,0,0,P,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,0,0,P,0]"]\)[t], 

          r291 -> kirsp2*\(c["IRS[0,0,0,0,0,P,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,0,0,P,P]"]\)[t], 

          r292 -> kirsp2*\(c["IRS[0,0,0,0,P,0,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,0,P,0,0]"]\)[t], 

          r293 -> kirsp2*\(c["IRS[0,0,0,0,P,0,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,0,P,0,P]"]\)[t], 

          r294 -> kirsp2*\(c["IRS[0,0,0,0,P,P,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,0,P,P,0]"]\)[t], 

          r295 -> kirsp2*\(c["IRS[0,0,0,0,P,P,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,0,P,P,P]"]\)[t], 

          r296 -> kirsp2*\(c["IRS[0,0,0,P,0,0,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,P,0,0,0]"]\)[t], 

          r297 -> kirsp2*\(c["IRS[0,0,0,P,0,0,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,P,0,0,P]"]\)[t], 

          r298 -> 
            kirsp2*\(c["IRS[0,0,0,P,0,P,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,P,0,P,0]"]\)[t], 

          r299 -> kirsp2*\(c["IRS[0,0,0,P,0,P,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,P,0,P,P]"]\)[t], 

          r300 -> kirsp2*\(c["IRS[0,0,0,P,P,0,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,P,P,0,0]"]\)[t], 

          r301 -> kirsp2*\(c["IRS[0,0,0,P,P,0,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,P,P,0,P]"]\)[t], 

          r302 -> kirsp2*\(c["IRS[0,0,0,P,P,P,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,P,P,P,0]"]\)[t], 

          r303 -> kirsp2*\(c["IRS[0,0,0,P,P,P,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,0,P,P,P,P,P]"]\)[t], 

          r304 -> kirsp2*\(c["IRS[0,P,0,0,0,0,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,0,0,0,0]"]\)[t], 

          r305 -> kirsp2*\(c["IRS[0,P,0,0,0,0,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,0,0,0,P]"]\)[t], 

          r306 -> kirsp2*\(c["IRS[0,P,0,0,0,P,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,0,0,P,0]"]\)[t], 

          r307 -> kirsp2*\(c["IRS[0,P,0,0,0,P,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,0,0,P,P]"]\)[t], 

          r308 -> kirsp2*\(c["IRS[0,P,0,0,P,0,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,0,P,0,0]"]\)[t], 

          r309 -> kirsp2*\(c["IRS[0,P,0,0,P,0,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,0,P,0,P]"]\)[t], 

          r310 -> kirsp2*\(c["IRS[0,P,0,0,P,P,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,0,P,P,0]"]\)[t], 

          r311 -> 
            kirsp2*\(c["IRS[0,P,0,0,P,P,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,0,P,P,P]"]\)[t], 

          r312 -> kirsp2*\(c["IRS[0,P,0,P,0,0,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,P,0,0,0]"]\)[t], 

          r313 -> kirsp2*\(c["IRS[0,P,0,P,0,0,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,P,0,0,P]"]\)[t], 

          r314 -> kirsp2*\(c["IRS[0,P,0,P,0,P,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,P,0,P,0]"]\)[t], 

          r315 -> kirsp2*\(c["IRS[0,P,0,P,0,P,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,P,0,P,P]"]\)[t], 

          r316 -> kirsp2*\(c["IRS[0,P,0,P,P,0,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,P,P,0,0]"]\)[t], 

          r317 -> kirsp2*\(c["IRS[0,P,0,P,P,0,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,P,P,0,P]"]\)[t], 

          r318 -> kirsp2*\(c["IRS[0,P,0,P,P,P,0]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,P,P,P,0]"]\)[t], 

          r319 -> kirsp2*\(c["IRS[0,P,0,P,P,P,P]"]\)[t] - 
              kirsp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[0,P,P,P,P,P,P]"]\)[t], 

          r320 -> kirsp3*\(c["IRS[0,0,0,0,0,0,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,0,P,0,0,0]"]\)[t], 

          r321 -> kirsp3*\(c["IRS[0,0,0,0,0,0,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,0,P,0,0,P]"]\)[t], 

          r322 -> kirsp3*\(c["IRS[0,0,0,0,0,P,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,0,P,0,P,0]"]\)[t], 

          r323 -> kirsp3*\(c["IRS[0,0,0,0,0,P,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,0,P,0,P,P]"]\)[t], 

          r324 -> 
            kirsp3*\(c["IRS[0,0,0,0,P,0,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,0,P,P,0,0]"]\)[t], 

          r325 -> kirsp3*\(c["IRS[0,0,0,0,P,0,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,0,P,P,0,P]"]\)[t], 

          r326 -> kirsp3*\(c["IRS[0,0,0,0,P,P,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,0,P,P,P,0]"]\)[t], 

          r327 -> kirsp3*\(c["IRS[0,0,0,0,P,P,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,0,P,P,P,P]"]\)[t], 

          r328 -> kirsp3*\(c["IRS[0,0,P,0,0,0,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,P,P,0,0,0]"]\)[t], 

          r329 -> kirsp3*\(c["IRS[0,0,P,0,0,0,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,P,P,0,0,P]"]\)[t], 

          r330 -> kirsp3*\(c["IRS[0,0,P,0,0,P,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,P,P,0,P,0]"]\)[t], 

          r331 -> kirsp3*\(c["IRS[0,0,P,0,0,P,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,P,P,0,P,P]"]\)[t], 

          r332 -> kirsp3*\(c["IRS[0,0,P,0,P,0,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,P,P,P,0,0]"]\)[t], 

          r333 -> kirsp3*\(c["IRS[0,0,P,0,P,0,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,P,P,P,0,P]"]\)[t], 

          r334 -> kirsp3*\(c["IRS[0,0,P,0,P,P,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,P,P,P,P,0]"]\)[t], 

          r335 -> kirsp3*\(c["IRS[0,0,P,0,P,P,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,0,P,P,P,P,P]"]\)[t], 

          r336 -> kirsp3*\(c["IRS[0,P,0,0,0,0,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,0,P,0,0,0]"]\)[t], 

          r337 -> 
            kirsp3*\(c["IRS[0,P,0,0,0,0,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,0,P,0,0,P]"]\)[t], 

          r338 -> kirsp3*\(c["IRS[0,P,0,0,0,P,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,0,P,0,P,0]"]\)[t], 

          r339 -> kirsp3*\(c["IRS[0,P,0,0,0,P,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,0,P,0,P,P]"]\)[t], 

          r340 -> kirsp3*\(c["IRS[0,P,0,0,P,0,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,0,P,P,0,0]"]\)[t], 

          r341 -> kirsp3*\(c["IRS[0,P,0,0,P,0,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,0,P,P,0,P]"]\)[t], 

          r342 -> kirsp3*\(c["IRS[0,P,0,0,P,P,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,0,P,P,P,0]"]\)[t], 

          r343 -> kirsp3*\(c["IRS[0,P,0,0,P,P,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,0,P,P,P,P]"]\)[t], 

          r344 -> kirsp3*\(c["IRS[0,P,P,0,0,0,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,P,P,0,0,0]"]\)[t], 

          r345 -> kirsp3*\(c["IRS[0,P,P,0,0,0,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,P,P,0,0,P]"]\)[t], 

          r346 -> kirsp3*\(c["IRS[0,P,P,0,0,P,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,P,P,0,P,0]"]\)[t], 

          r347 -> kirsp3*\(c["IRS[0,P,P,0,0,P,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,P,P,0,P,P]"]\)[t], 

          r348 -> kirsp3*\(c["IRS[0,P,P,0,P,0,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,P,P,P,0,0]"]\)[t], 

          r349 -> kirsp3*\(c["IRS[0,P,P,0,P,0,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,P,P,P,0,P]"]\)[t], 

          r350 -> 
            kirsp3*\(c["IRS[0,P,P,0,P,P,0]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,P,P,P,P,0]"]\)[t], 

          r351 -> kirsp3*\(c["IRS[0,P,P,0,P,P,P]"]\)[t] - 
              kirsp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[0,P,P,P,P,P,P]"]\)[t], 

          r352 -> kirsp4*\(c["IRS[0,0,0,0,0,0,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,0,0,P,0,0]"]\)[t], 

          r353 -> kirsp4*\(c["IRS[0,0,0,0,0,0,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,0,0,P,0,P]"]\)[t], 

          r354 -> kirsp4*\(c["IRS[0,0,0,0,0,P,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,0,0,P,P,0]"]\)[t], 

          r355 -> kirsp4*\(c["IRS[0,0,0,0,0,P,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,0,0,P,P,P]"]\)[t], 

          r356 -> kirsp4*\(c["IRS[0,0,0,P,0,0,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,0,P,P,0,0]"]\)[t], 

          r357 -> kirsp4*\(c["IRS[0,0,0,P,0,0,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,0,P,P,0,P]"]\)[t], 

          r358 -> kirsp4*\(c["IRS[0,0,0,P,0,P,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,0,P,P,P,0]"]\)[t], 

          r359 -> kirsp4*\(c["IRS[0,0,0,P,0,P,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,0,P,P,P,P]"]\)[t], 

          r360 -> kirsp4*\(c["IRS[0,0,P,0,0,0,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,P,0,P,0,0]"]\)[t], 

          r361 -> kirsp4*\(c["IRS[0,0,P,0,0,0,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,P,0,P,0,P]"]\)[t], 

          r362 -> kirsp4*\(c["IRS[0,0,P,0,0,P,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,P,0,P,P,0]"]\)[t], 

          r363 -> 
            kirsp4*\(c["IRS[0,0,P,0,0,P,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,P,0,P,P,P]"]\)[t], 

          r364 -> kirsp4*\(c["IRS[0,0,P,P,0,0,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,P,P,P,0,0]"]\)[t], 

          r365 -> kirsp4*\(c["IRS[0,0,P,P,0,0,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,P,P,P,0,P]"]\)[t], 

          r366 -> kirsp4*\(c["IRS[0,0,P,P,0,P,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,P,P,P,P,0]"]\)[t], 

          r367 -> kirsp4*\(c["IRS[0,0,P,P,0,P,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,0,P,P,P,P,P]"]\)[t], 

          r368 -> kirsp4*\(c["IRS[0,P,0,0,0,0,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,0,0,P,0,0]"]\)[t], 

          r369 -> kirsp4*\(c["IRS[0,P,0,0,0,0,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,0,0,P,0,P]"]\)[t], 

          r370 -> kirsp4*\(c["IRS[0,P,0,0,0,P,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,0,0,P,P,0]"]\)[t], 

          r371 -> kirsp4*\(c["IRS[0,P,0,0,0,P,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,0,0,P,P,P]"]\)[t], 

          r372 -> kirsp4*\(c["IRS[0,P,0,P,0,0,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,0,P,P,0,0]"]\)[t], 

          r373 -> kirsp4*\(c["IRS[0,P,0,P,0,0,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,0,P,P,0,P]"]\)[t], 

          r374 -> kirsp4*\(c["IRS[0,P,0,P,0,P,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,0,P,P,P,0]"]\)[t], 

          r375 -> kirsp4*\(c["IRS[0,P,0,P,0,P,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,0,P,P,P,P]"]\)[t], 

          r376 -> 
            kirsp4*\(c["IRS[0,P,P,0,0,0,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,P,0,P,0,0]"]\)[t], 

          r377 -> kirsp4*\(c["IRS[0,P,P,0,0,0,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,P,0,P,0,P]"]\)[t], 

          r378 -> kirsp4*\(c["IRS[0,P,P,0,0,P,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,P,0,P,P,0]"]\)[t], 

          r379 -> kirsp4*\(c["IRS[0,P,P,0,0,P,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,P,0,P,P,P]"]\)[t], 

          r380 -> kirsp4*\(c["IRS[0,P,P,P,0,0,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,P,P,P,0,0]"]\)[t], 

          r381 -> kirsp4*\(c["IRS[0,P,P,P,0,0,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,P,P,P,0,P]"]\)[t], 

          r382 -> kirsp4*\(c["IRS[0,P,P,P,0,P,0]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,P,P,P,P,0]"]\)[t], 

          r383 -> kirsp4*\(c["IRS[0,P,P,P,0,P,P]"]\)[t] - 
              kirsp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[0,P,P,P,P,P,P]"]\)[t], 

          r384 -> kirsp5*\(c["IRS[0,0,0,0,0,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,0,0,0,P,0]"]\)[t], 

          r385 -> kirsp5*\(c["IRS[0,0,0,0,0,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,0,0,0,P,P]"]\)[t], 

          r386 -> kirsp5*\(c["IRS[0,0,0,0,P,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,0,0,P,P,0]"]\)[t], 

          r387 -> kirsp5*\(c["IRS[0,0,0,0,P,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,0,0,P,P,P]"]\)[t], 

          r388 -> kirsp5*\(c["IRS[0,0,0,P,0,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,0,P,0,P,0]"]\)[t], 

          r389 -> kirsp5*\(c["IRS[0,0,0,P,0,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,0,P,0,P,P]"]\)[t], 

          r390 -> kirsp5*\(c["IRS[0,0,0,P,P,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,0,P,P,P,0]"]\)[t], 

          r391 -> kirsp5*\(c["IRS[0,0,0,P,P,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,0,P,P,P,P]"]\)[t], 

          r392 -> kirsp5*\(c["IRS[0,0,P,0,0,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,P,0,0,P,0]"]\)[t], 

          r393 -> kirsp5*\(c["IRS[0,0,P,0,0,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,P,0,0,P,P]"]\)[t], 

          r394 -> kirsp5*\(c["IRS[0,0,P,0,P,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,P,0,P,P,0]"]\)[t], 

          r395 -> kirsp5*\(c["IRS[0,0,P,0,P,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,P,0,P,P,P]"]\)[t], 

          r396 -> kirsp5*\(c["IRS[0,0,P,P,0,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,P,P,0,P,0]"]\)[t], 

          r397 -> kirsp5*\(c["IRS[0,0,P,P,0,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,P,P,0,P,P]"]\)[t], 

          r398 -> kirsp5*\(c["IRS[0,0,P,P,P,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,P,P,P,P,0]"]\)[t], 

          r399 -> kirsp5*\(c["IRS[0,0,P,P,P,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,0,P,P,P,P,P]"]\)[t], 

          r400 -> kirsp5*\(c["IRS[0,P,0,0,0,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,0,0,0,P,0]"]\)[t], 

          r401 -> kirsp5*\(c["IRS[0,P,0,0,0,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,0,0,0,P,P]"]\)[t], 

          r402 -> kirsp5*\(c["IRS[0,P,0,0,P,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,0,0,P,P,0]"]\)[t], 

          r403 -> kirsp5*\(c["IRS[0,P,0,0,P,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,0,0,P,P,P]"]\)[t], 

          r404 -> kirsp5*\(c["IRS[0,P,0,P,0,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,0,P,0,P,0]"]\)[t], 

          r405 -> kirsp5*\(c["IRS[0,P,0,P,0,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,0,P,0,P,P]"]\)[t], 

          r406 -> kirsp5*\(c["IRS[0,P,0,P,P,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,0,P,P,P,0]"]\)[t], 

          r407 -> kirsp5*\(c["IRS[0,P,0,P,P,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,0,P,P,P,P]"]\)[t], 

          r408 -> kirsp5*\(c["IRS[0,P,P,0,0,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,P,0,0,P,0]"]\)[t], 

          r409 -> kirsp5*\(c["IRS[0,P,P,0,0,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,P,0,0,P,P]"]\)[t], 

          r410 -> kirsp5*\(c["IRS[0,P,P,0,P,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,P,0,P,P,0]"]\)[t], 

          r411 -> kirsp5*\(c["IRS[0,P,P,0,P,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,P,0,P,P,P]"]\)[t], 

          r412 -> kirsp5*\(c["IRS[0,P,P,P,0,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,P,P,0,P,0]"]\)[t], 

          r413 -> kirsp5*\(c["IRS[0,P,P,P,0,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,P,P,0,P,P]"]\)[t], 

          r414 -> kirsp5*\(c["IRS[0,P,P,P,P,0,0]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,P,P,P,P,0]"]\)[t], 

          r415 -> kirsp5*\(c["IRS[0,P,P,P,P,0,P]"]\)[t] - 
              kirsp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[0,P,P,P,P,P,P]"]\)[t], 

          r416 -> 
            kirsp6*\(c["IRS[0,0,0,0,0,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,0,0,0,0,P]"]\)[t], 

          r417 -> kirsp6*\(c["IRS[0,0,0,0,0,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,0,0,0,P,P]"]\)[t], 

          r418 -> kirsp6*\(c["IRS[0,0,0,0,P,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,0,0,P,0,P]"]\)[t], 

          r419 -> kirsp6*\(c["IRS[0,0,0,0,P,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,0,0,P,P,P]"]\)[t], 

          r420 -> kirsp6*\(c["IRS[0,0,0,P,0,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,0,P,0,0,P]"]\)[t], 

          r421 -> kirsp6*\(c["IRS[0,0,0,P,0,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,0,P,0,P,P]"]\)[t], 

          r422 -> kirsp6*\(c["IRS[0,0,0,P,P,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,0,P,P,0,P]"]\)[t], 

          r423 -> kirsp6*\(c["IRS[0,0,0,P,P,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,0,P,P,P,P]"]\)[t], 

          r424 -> kirsp6*\(c["IRS[0,0,P,0,0,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,P,0,0,0,P]"]\)[t], 

          r425 -> kirsp6*\(c["IRS[0,0,P,0,0,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,P,0,0,P,P]"]\)[t], 

          r426 -> kirsp6*\(c["IRS[0,0,P,0,P,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,P,0,P,0,P]"]\)[t], 

          r427 -> kirsp6*\(c["IRS[0,0,P,0,P,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,P,0,P,P,P]"]\)[t], 

          r428 -> kirsp6*\(c["IRS[0,0,P,P,0,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,P,P,0,0,P]"]\)[t], 

          r429 -> kirsp6*\(c["IRS[0,0,P,P,0,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,P,P,0,P,P]"]\)[t], 

          r430 -> kirsp6*\(c["IRS[0,0,P,P,P,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,P,P,P,0,P]"]\)[t], 

          r431 -> kirsp6*\(c["IRS[0,0,P,P,P,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,0,P,P,P,P,P]"]\)[t], 

          r432 -> kirsp6*\(c["IRS[0,P,0,0,0,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,0,0,0,0,P]"]\)[t], 

          r433 -> kirsp6*\(c["IRS[0,P,0,0,0,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,0,0,0,P,P]"]\)[t], 

          r434 -> kirsp6*\(c["IRS[0,P,0,0,P,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,0,0,P,0,P]"]\)[t], 

          r435 -> kirsp6*\(c["IRS[0,P,0,0,P,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,0,0,P,P,P]"]\)[t], 

          r436 -> kirsp6*\(c["IRS[0,P,0,P,0,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,0,P,0,0,P]"]\)[t], 

          r437 -> kirsp6*\(c["IRS[0,P,0,P,0,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,0,P,0,P,P]"]\)[t], 

          r438 -> kirsp6*\(c["IRS[0,P,0,P,P,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,0,P,P,0,P]"]\)[t], 

          r439 -> kirsp6*\(c["IRS[0,P,0,P,P,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,0,P,P,P,P]"]\)[t], 

          r440 -> kirsp6*\(c["IRS[0,P,P,0,0,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,P,0,0,0,P]"]\)[t], 

          r441 -> kirsp6*\(c["IRS[0,P,P,0,0,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,P,0,0,P,P]"]\)[t], 

          r442 -> kirsp6*\(c["IRS[0,P,P,0,P,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,P,0,P,0,P]"]\)[t], 

          r443 -> kirsp6*\(c["IRS[0,P,P,0,P,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,P,0,P,P,P]"]\)[t], 

          r444 -> kirsp6*\(c["IRS[0,P,P,P,0,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,P,P,0,0,P]"]\)[t], 

          r445 -> kirsp6*\(c["IRS[0,P,P,P,0,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,P,P,0,P,P]"]\)[t], 

          r446 -> kirsp6*\(c["IRS[0,P,P,P,P,0,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,P,P,P,0,P]"]\)[t], 

          r447 -> kirsp6*\(c["IRS[0,P,P,P,P,P,0]"]\)[t] - 
              kirsp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[0,P,P,P,P,P,P]"]\)[t], 

          r448 -> kirsbp1*\(c["IRS[R,0,0,0,0,0,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,0,0,0,0]"]\)[t], 

          r449 -> kirsbp1*\(c["IRS[R,0,0,0,0,0,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,0,0,0,P]"]\)[t], 

          r450 -> kirsbp1*\(c["IRS[R,0,0,0,0,P,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,0,0,P,0]"]\)[t], 

          r451 -> kirsbp1*\(c["IRS[R,0,0,0,0,P,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,0,0,P,P]"]\)[t], 

          r452 -> kirsbp1*\(c["IRS[R,0,0,0,P,0,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,0,P,0,0]"]\)[t], 

          r453 -> kirsbp1*\(c["IRS[R,0,0,0,P,0,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,0,P,0,P]"]\)[t], 

          r454 -> kirsbp1*\(c["IRS[R,0,0,0,P,P,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,0,P,P,0]"]\)[t], 

          r455 -> kirsbp1*\(c["IRS[R,0,0,0,P,P,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,0,P,P,P]"]\)[t], 

          r456 -> kirsbp1*\(c["IRS[R,0,0,P,0,0,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,P,0,0,0]"]\)[t], 

          r457 -> kirsbp1*\(c["IRS[R,0,0,P,0,0,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,P,0,0,P]"]\)[t], 

          r458 -> kirsbp1*\(c["IRS[R,0,0,P,0,P,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,P,0,P,0]"]\)[t], 

          r459 -> kirsbp1*\(c["IRS[R,0,0,P,0,P,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,P,0,P,P]"]\)[t], 

          r460 -> kirsbp1*\(c["IRS[R,0,0,P,P,0,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,P,P,0,0]"]\)[t], 

          r461 -> kirsbp1*\(c["IRS[R,0,0,P,P,0,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,P,P,0,P]"]\)[t], 

          r462 -> kirsbp1*\(c["IRS[R,0,0,P,P,P,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,P,P,P,0]"]\)[t], 

          r463 -> kirsbp1*\(c["IRS[R,0,0,P,P,P,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,0,P,P,P,P]"]\)[t], 

          r464 -> kirsbp1*\(c["IRS[R,0,P,0,0,0,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,0,0,0,0]"]\)[t], 

          r465 -> kirsbp1*\(c["IRS[R,0,P,0,0,0,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,0,0,0,P]"]\)[t], 

          r466 -> kirsbp1*\(c["IRS[R,0,P,0,0,P,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,0,0,P,0]"]\)[t], 

          r467 -> kirsbp1*\(c["IRS[R,0,P,0,0,P,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,0,0,P,P]"]\)[t], 

          r468 -> kirsbp1*\(c["IRS[R,0,P,0,P,0,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,0,P,0,0]"]\)[t], 

          r469 -> kirsbp1*\(c["IRS[R,0,P,0,P,0,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,0,P,0,P]"]\)[t], 

          r470 -> kirsbp1*\(c["IRS[R,0,P,0,P,P,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,0,P,P,0]"]\)[t], 

          r471 -> kirsbp1*\(c["IRS[R,0,P,0,P,P,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,0,P,P,P]"]\)[t], 

          r472 -> kirsbp1*\(c["IRS[R,0,P,P,0,0,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,P,0,0,0]"]\)[t], 

          r473 -> kirsbp1*\(c["IRS[R,0,P,P,0,0,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,P,0,0,P]"]\)[t], 

          r474 -> kirsbp1*\(c["IRS[R,0,P,P,0,P,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,P,0,P,0]"]\)[t], 

          r475 -> kirsbp1*\(c["IRS[R,0,P,P,0,P,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,P,0,P,P]"]\)[t], 

          r476 -> kirsbp1*\(c["IRS[R,0,P,P,P,0,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,P,P,0,0]"]\)[t], 

          r477 -> kirsbp1*\(c["IRS[R,0,P,P,P,0,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,P,P,0,P]"]\)[t], 

          r478 -> kirsbp1*\(c["IRS[R,0,P,P,P,P,0]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,P,P,P,0]"]\)[t], 

          r479 -> kirsbp1*\(c["IRS[R,0,P,P,P,P,P]"]\)[t] - 
              kirsbp1d*\((\((xIrsPi3k1 - xIrsPi3k1b)\)/
                    xIrsPi3k1)\)*\(c["IRS[R,P,P,P,P,P,P]"]\)[t], 

          r480 -> kirsbp2*\(c["IRS[R,0,0,0,0,0,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,0,0,0,0]"]\)[t], 

          r481 -> kirsbp2*\(c["IRS[R,0,0,0,0,0,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,0,0,0,P]"]\)[t], 

          r482 -> kirsbp2*\(c["IRS[R,0,0,0,0,P,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,0,0,P,0]"]\)[t], 

          r483 -> kirsbp2*\(c["IRS[R,0,0,0,0,P,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,0,0,P,P]"]\)[t], 

          r484 -> kirsbp2*\(c["IRS[R,0,0,0,P,0,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,0,P,0,0]"]\)[t], 

          r485 -> kirsbp2*\(c["IRS[R,0,0,0,P,0,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,0,P,0,P]"]\)[t], 

          r486 -> kirsbp2*\(c["IRS[R,0,0,0,P,P,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,0,P,P,0]"]\)[t], 

          r487 -> kirsbp2*\(c["IRS[R,0,0,0,P,P,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,0,P,P,P]"]\)[t], 

          r488 -> kirsbp2*\(c["IRS[R,0,0,P,0,0,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,P,0,0,0]"]\)[t], 

          r489 -> kirsbp2*\(c["IRS[R,0,0,P,0,0,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,P,0,0,P]"]\)[t], 

          r490 -> kirsbp2*\(c["IRS[R,0,0,P,0,P,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,P,0,P,0]"]\)[t], 

          r491 -> kirsbp2*\(c["IRS[R,0,0,P,0,P,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,P,0,P,P]"]\)[t], 

          r492 -> kirsbp2*\(c["IRS[R,0,0,P,P,0,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,P,P,0,0]"]\)[t], 

          r493 -> kirsbp2*\(c["IRS[R,0,0,P,P,0,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,P,P,0,P]"]\)[t], 

          r494 -> kirsbp2*\(c["IRS[R,0,0,P,P,P,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,P,P,P,0]"]\)[t], 

          r495 -> kirsbp2*\(c["IRS[R,0,0,P,P,P,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,0,P,P,P,P,P]"]\)[t], 

          r496 -> kirsbp2*\(c["IRS[R,P,0,0,0,0,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,0,0,0,0]"]\)[t], 

          r497 -> kirsbp2*\(c["IRS[R,P,0,0,0,0,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,0,0,0,P]"]\)[t], 

          r498 -> kirsbp2*\(c["IRS[R,P,0,0,0,P,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,0,0,P,0]"]\)[t], 

          r499 -> kirsbp2*\(c["IRS[R,P,0,0,0,P,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,0,0,P,P]"]\)[t], 

          r500 -> kirsbp2*\(c["IRS[R,P,0,0,P,0,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,0,P,0,0]"]\)[t], 

          r501 -> kirsbp2*\(c["IRS[R,P,0,0,P,0,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,0,P,0,P]"]\)[t], 

          r502 -> kirsbp2*\(c["IRS[R,P,0,0,P,P,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,0,P,P,0]"]\)[t], 

          r503 -> kirsbp2*\(c["IRS[R,P,0,0,P,P,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,0,P,P,P]"]\)[t], 

          r504 -> kirsbp2*\(c["IRS[R,P,0,P,0,0,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,P,0,0,0]"]\)[t], 

          r505 -> kirsbp2*\(c["IRS[R,P,0,P,0,0,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,P,0,0,P]"]\)[t], 

          r506 -> kirsbp2*\(c["IRS[R,P,0,P,0,P,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,P,0,P,0]"]\)[t], 

          r507 -> kirsbp2*\(c["IRS[R,P,0,P,0,P,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,P,0,P,P]"]\)[t], 

          r508 -> kirsbp2*\(c["IRS[R,P,0,P,P,0,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,P,P,0,0]"]\)[t], 

          r509 -> kirsbp2*\(c["IRS[R,P,0,P,P,0,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,P,P,0,P]"]\)[t], 

          r510 -> kirsbp2*\(c["IRS[R,P,0,P,P,P,0]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,P,P,P,0]"]\)[t], 

          r511 -> kirsbp2*\(c["IRS[R,P,0,P,P,P,P]"]\)[t] - 
              kirsbp2d*\((\((xIrsPi3k2 - xIrsPi3k2b)\)/
                    xIrsPi3k2)\)*\(c["IRS[R,P,P,P,P,P,P]"]\)[t], 

          r512 -> kirsbp3*\(c["IRS[R,0,0,0,0,0,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,0,P,0,0,0]"]\)[t], 

          r513 -> kirsbp3*\(c["IRS[R,0,0,0,0,0,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,0,P,0,0,P]"]\)[t], 

          r514 -> kirsbp3*\(c["IRS[R,0,0,0,0,P,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,0,P,0,P,0]"]\)[t], 

          r515 -> kirsbp3*\(c["IRS[R,0,0,0,0,P,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,0,P,0,P,P]"]\)[t], 

          r516 -> kirsbp3*\(c["IRS[R,0,0,0,P,0,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,0,P,P,0,0]"]\)[t], 

          r517 -> kirsbp3*\(c["IRS[R,0,0,0,P,0,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,0,P,P,0,P]"]\)[t], 

          r518 -> kirsbp3*\(c["IRS[R,0,0,0,P,P,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,0,P,P,P,0]"]\)[t], 

          r519 -> kirsbp3*\(c["IRS[R,0,0,0,P,P,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,0,P,P,P,P]"]\)[t], 

          r520 -> kirsbp3*\(c["IRS[R,0,P,0,0,0,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,P,P,0,0,0]"]\)[t], 

          r521 -> kirsbp3*\(c["IRS[R,0,P,0,0,0,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,P,P,0,0,P]"]\)[t], 

          r522 -> kirsbp3*\(c["IRS[R,0,P,0,0,P,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,P,P,0,P,0]"]\)[t], 

          r523 -> kirsbp3*\(c["IRS[R,0,P,0,0,P,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,P,P,0,P,P]"]\)[t], 

          r524 -> kirsbp3*\(c["IRS[R,0,P,0,P,0,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,P,P,P,0,0]"]\)[t], 

          r525 -> kirsbp3*\(c["IRS[R,0,P,0,P,0,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,P,P,P,0,P]"]\)[t], 

          r526 -> kirsbp3*\(c["IRS[R,0,P,0,P,P,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,P,P,P,P,0]"]\)[t], 

          r527 -> kirsbp3*\(c["IRS[R,0,P,0,P,P,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,0,P,P,P,P,P]"]\)[t], 

          r528 -> kirsbp3*\(c["IRS[R,P,0,0,0,0,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,0,P,0,0,0]"]\)[t], 

          r529 -> kirsbp3*\(c["IRS[R,P,0,0,0,0,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,0,P,0,0,P]"]\)[t], 

          r530 -> kirsbp3*\(c["IRS[R,P,0,0,0,P,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,0,P,0,P,0]"]\)[t], 

          r531 -> kirsbp3*\(c["IRS[R,P,0,0,0,P,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,0,P,0,P,P]"]\)[t], 

          r532 -> kirsbp3*\(c["IRS[R,P,0,0,P,0,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,0,P,P,0,0]"]\)[t], 

          r533 -> kirsbp3*\(c["IRS[R,P,0,0,P,0,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,0,P,P,0,P]"]\)[t], 

          r534 -> kirsbp3*\(c["IRS[R,P,0,0,P,P,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,0,P,P,P,0]"]\)[t], 

          r535 -> kirsbp3*\(c["IRS[R,P,0,0,P,P,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,0,P,P,P,P]"]\)[t], 

          r536 -> kirsbp3*\(c["IRS[R,P,P,0,0,0,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,P,P,0,0,0]"]\)[t], 

          r537 -> kirsbp3*\(c["IRS[R,P,P,0,0,0,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,P,P,0,0,P]"]\)[t], 

          r538 -> kirsbp3*\(c["IRS[R,P,P,0,0,P,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,P,P,0,P,0]"]\)[t], 

          r539 -> kirsbp3*\(c["IRS[R,P,P,0,0,P,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,P,P,0,P,P]"]\)[t], 

          r540 -> kirsbp3*\(c["IRS[R,P,P,0,P,0,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,P,P,P,0,0]"]\)[t], 

          r541 -> kirsbp3*\(c["IRS[R,P,P,0,P,0,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,P,P,P,0,P]"]\)[t], 

          r542 -> kirsbp3*\(c["IRS[R,P,P,0,P,P,0]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,P,P,P,P,0]"]\)[t], 

          r543 -> kirsbp3*\(c["IRS[R,P,P,0,P,P,P]"]\)[t] - 
              kirsbp3d*\((\((xIrsPi3k3 - xIrsPi3k3b)\)/
                    xIrsPi3k3)\)*\(c["IRS[R,P,P,P,P,P,P]"]\)[t], 

          r544 -> kirsbp4*\(c["IRS[R,0,0,0,0,0,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,0,0,P,0,0]"]\)[t], 

          r545 -> kirsbp4*\(c["IRS[R,0,0,0,0,0,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,0,0,P,0,P]"]\)[t], 

          r546 -> kirsbp4*\(c["IRS[R,0,0,0,0,P,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,0,0,P,P,0]"]\)[t], 

          r547 -> kirsbp4*\(c["IRS[R,0,0,0,0,P,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,0,0,P,P,P]"]\)[t], 

          r548 -> kirsbp4*\(c["IRS[R,0,0,P,0,0,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,0,P,P,0,0]"]\)[t], 

          r549 -> kirsbp4*\(c["IRS[R,0,0,P,0,0,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,0,P,P,0,P]"]\)[t], 

          r550 -> kirsbp4*\(c["IRS[R,0,0,P,0,P,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,0,P,P,P,0]"]\)[t], 

          r551 -> kirsbp4*\(c["IRS[R,0,0,P,0,P,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,0,P,P,P,P]"]\)[t], 

          r552 -> kirsbp4*\(c["IRS[R,0,P,0,0,0,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,P,0,P,0,0]"]\)[t], 

          r553 -> kirsbp4*\(c["IRS[R,0,P,0,0,0,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,P,0,P,0,P]"]\)[t], 

          r554 -> kirsbp4*\(c["IRS[R,0,P,0,0,P,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,P,0,P,P,0]"]\)[t], 

          r555 -> kirsbp4*\(c["IRS[R,0,P,0,0,P,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,P,0,P,P,P]"]\)[t], 

          r556 -> kirsbp4*\(c["IRS[R,0,P,P,0,0,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,P,P,P,0,0]"]\)[t], 

          r557 -> kirsbp4*\(c["IRS[R,0,P,P,0,0,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,P,P,P,0,P]"]\)[t], 

          r558 -> kirsbp4*\(c["IRS[R,0,P,P,0,P,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,P,P,P,P,0]"]\)[t], 

          r559 -> kirsbp4*\(c["IRS[R,0,P,P,0,P,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,0,P,P,P,P,P]"]\)[t], 

          r560 -> kirsbp4*\(c["IRS[R,P,0,0,0,0,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,0,0,P,0,0]"]\)[t], 

          r561 -> kirsbp4*\(c["IRS[R,P,0,0,0,0,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,0,0,P,0,P]"]\)[t], 

          r562 -> kirsbp4*\(c["IRS[R,P,0,0,0,P,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,0,0,P,P,0]"]\)[t], 

          r563 -> kirsbp4*\(c["IRS[R,P,0,0,0,P,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,0,0,P,P,P]"]\)[t], 

          r564 -> kirsbp4*\(c["IRS[R,P,0,P,0,0,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,0,P,P,0,0]"]\)[t], 

          r565 -> kirsbp4*\(c["IRS[R,P,0,P,0,0,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,0,P,P,0,P]"]\)[t], 

          r566 -> kirsbp4*\(c["IRS[R,P,0,P,0,P,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,0,P,P,P,0]"]\)[t], 

          r567 -> kirsbp4*\(c["IRS[R,P,0,P,0,P,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,0,P,P,P,P]"]\)[t], 

          r568 -> kirsbp4*\(c["IRS[R,P,P,0,0,0,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,P,0,P,0,0]"]\)[t], 

          r569 -> kirsbp4*\(c["IRS[R,P,P,0,0,0,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,P,0,P,0,P]"]\)[t], 

          r570 -> kirsbp4*\(c["IRS[R,P,P,0,0,P,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,P,0,P,P,0]"]\)[t], 

          r571 -> kirsbp4*\(c["IRS[R,P,P,0,0,P,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,P,0,P,P,P]"]\)[t], 

          r572 -> kirsbp4*\(c["IRS[R,P,P,P,0,0,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,P,P,P,0,0]"]\)[t], 

          r573 -> kirsbp4*\(c["IRS[R,P,P,P,0,0,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,P,P,P,0,P]"]\)[t], 

          r574 -> kirsbp4*\(c["IRS[R,P,P,P,0,P,0]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,P,P,P,P,0]"]\)[t], 

          r575 -> kirsbp4*\(c["IRS[R,P,P,P,0,P,P]"]\)[t] - 
              kirsbp4d*\((\((xIrsPi3k4 - xIrsPi3k4b)\)/
                    xIrsPi3k4)\)*\(c["IRS[R,P,P,P,P,P,P]"]\)[t], 

          r576 -> kirsbp5*\(c["IRS[R,0,0,0,0,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,0,0,0,P,0]"]\)[t], 

          r577 -> kirsbp5*\(c["IRS[R,0,0,0,0,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,0,0,0,P,P]"]\)[t], 

          r578 -> kirsbp5*\(c["IRS[R,0,0,0,P,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,0,0,P,P,0]"]\)[t], 

          r579 -> kirsbp5*\(c["IRS[R,0,0,0,P,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,0,0,P,P,P]"]\)[t], 

          r580 -> kirsbp5*\(c["IRS[R,0,0,P,0,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,0,P,0,P,0]"]\)[t], 

          r581 -> kirsbp5*\(c["IRS[R,0,0,P,0,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,0,P,0,P,P]"]\)[t], 

          r582 -> kirsbp5*\(c["IRS[R,0,0,P,P,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,0,P,P,P,0]"]\)[t], 

          r583 -> kirsbp5*\(c["IRS[R,0,0,P,P,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,0,P,P,P,P]"]\)[t], 

          r584 -> kirsbp5*\(c["IRS[R,0,P,0,0,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,P,0,0,P,0]"]\)[t], 

          r585 -> kirsbp5*\(c["IRS[R,0,P,0,0,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,P,0,0,P,P]"]\)[t], 

          r586 -> kirsbp5*\(c["IRS[R,0,P,0,P,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,P,0,P,P,0]"]\)[t], 

          r587 -> kirsbp5*\(c["IRS[R,0,P,0,P,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,P,0,P,P,P]"]\)[t], 

          r588 -> kirsbp5*\(c["IRS[R,0,P,P,0,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,P,P,0,P,0]"]\)[t], 

          r589 -> kirsbp5*\(c["IRS[R,0,P,P,0,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,P,P,0,P,P]"]\)[t], 

          r590 -> kirsbp5*\(c["IRS[R,0,P,P,P,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,P,P,P,P,0]"]\)[t], 

          r591 -> kirsbp5*\(c["IRS[R,0,P,P,P,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,0,P,P,P,P,P]"]\)[t], 

          r592 -> kirsbp5*\(c["IRS[R,P,0,0,0,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,0,0,0,P,0]"]\)[t], 

          r593 -> kirsbp5*\(c["IRS[R,P,0,0,0,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,0,0,0,P,P]"]\)[t], 

          r594 -> kirsbp5*\(c["IRS[R,P,0,0,P,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,0,0,P,P,0]"]\)[t], 

          r595 -> kirsbp5*\(c["IRS[R,P,0,0,P,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,0,0,P,P,P]"]\)[t], 

          r596 -> kirsbp5*\(c["IRS[R,P,0,P,0,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,0,P,0,P,0]"]\)[t], 

          r597 -> kirsbp5*\(c["IRS[R,P,0,P,0,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,0,P,0,P,P]"]\)[t], 

          r598 -> kirsbp5*\(c["IRS[R,P,0,P,P,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,0,P,P,P,0]"]\)[t], 

          r599 -> kirsbp5*\(c["IRS[R,P,0,P,P,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,0,P,P,P,P]"]\)[t], 

          r600 -> kirsbp5*\(c["IRS[R,P,P,0,0,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,P,0,0,P,0]"]\)[t], 

          r601 -> kirsbp5*\(c["IRS[R,P,P,0,0,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,P,0,0,P,P]"]\)[t], 

          r602 -> kirsbp5*\(c["IRS[R,P,P,0,P,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,P,0,P,P,0]"]\)[t], 

          r603 -> kirsbp5*\(c["IRS[R,P,P,0,P,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,P,0,P,P,P]"]\)[t], 

          r604 -> kirsbp5*\(c["IRS[R,P,P,P,0,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,P,P,0,P,0]"]\)[t], 

          r605 -> kirsbp5*\(c["IRS[R,P,P,P,0,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,P,P,0,P,P]"]\)[t], 

          r606 -> kirsbp5*\(c["IRS[R,P,P,P,P,0,0]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,P,P,P,P,0]"]\)[t], 

          r607 -> kirsbp5*\(c["IRS[R,P,P,P,P,0,P]"]\)[t] - 
              kirsbp5d*\((\((xIrsShp2 - xIrsShp2b)\)/
                    xIrsShp2)\)*\(c["IRS[R,P,P,P,P,P,P]"]\)[t], 

          r608 -> kirsbp6*\(c["IRS[R,0,0,0,0,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,0,0,0,0,P]"]\)[t], 

          r609 -> kirsbp6*\(c["IRS[R,0,0,0,0,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,0,0,0,P,P]"]\)[t], 

          r610 -> kirsbp6*\(c["IRS[R,0,0,0,P,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,0,0,P,0,P]"]\)[t], 

          r611 -> kirsbp6*\(c["IRS[R,0,0,0,P,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,0,0,P,P,P]"]\)[t], 

          r612 -> 
            kirsbp6*\(c["IRS[R,0,0,P,0,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,0,P,0,0,P]"]\)[t], 

          r613 -> kirsbp6*\(c["IRS[R,0,0,P,0,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,0,P,0,P,P]"]\)[t], 

          r614 -> kirsbp6*\(c["IRS[R,0,0,P,P,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,0,P,P,0,P]"]\)[t], 

          r615 -> kirsbp6*\(c["IRS[R,0,0,P,P,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,0,P,P,P,P]"]\)[t], 

          r616 -> kirsbp6*\(c["IRS[R,0,P,0,0,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,P,0,0,0,P]"]\)[t], 

          r617 -> kirsbp6*\(c["IRS[R,0,P,0,0,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,P,0,0,P,P]"]\)[t], 

          r618 -> kirsbp6*\(c["IRS[R,0,P,0,P,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,P,0,P,0,P]"]\)[t], 

          r619 -> kirsbp6*\(c["IRS[R,0,P,0,P,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,P,0,P,P,P]"]\)[t], 

          r620 -> kirsbp6*\(c["IRS[R,0,P,P,0,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,P,P,0,0,P]"]\)[t], 

          r621 -> kirsbp6*\(c["IRS[R,0,P,P,0,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,P,P,0,P,P]"]\)[t], 

          r622 -> kirsbp6*\(c["IRS[R,0,P,P,P,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,P,P,P,0,P]"]\)[t], 

          r623 -> kirsbp6*\(c["IRS[R,0,P,P,P,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,0,P,P,P,P,P]"]\)[t], 

          r624 -> kirsbp6*\(c["IRS[R,P,0,0,0,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,0,0,0,0,P]"]\)[t], 

          r625 -> kirsbp6*\(c["IRS[R,P,0,0,0,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,0,0,0,P,P]"]\)[t], 

          r626 -> kirsbp6*\(c["IRS[R,P,0,0,P,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,0,0,P,0,P]"]\)[t], 

          r627 -> kirsbp6*\(c["IRS[R,P,0,0,P,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,0,0,P,P,P]"]\)[t], 

          r628 -> kirsbp6*\(c["IRS[R,P,0,P,0,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,0,P,0,0,P]"]\)[t], 

          r629 -> kirsbp6*\(c["IRS[R,P,0,P,0,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,0,P,0,P,P]"]\)[t], 

          r630 -> kirsbp6*\(c["IRS[R,P,0,P,P,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,0,P,P,0,P]"]\)[t], 

          r631 -> kirsbp6*\(c["IRS[R,P,0,P,P,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,0,P,P,P,P]"]\)[t], 

          r632 -> kirsbp6*\(c["IRS[R,P,P,0,0,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,P,0,0,0,P]"]\)[t], 

          r633 -> kirsbp6*\(c["IRS[R,P,P,0,0,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,P,0,0,P,P]"]\)[t], 

          r634 -> kirsbp6*\(c["IRS[R,P,P,0,P,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,P,0,P,0,P]"]\)[t], 

          r635 -> kirsbp6*\(c["IRS[R,P,P,0,P,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,P,0,P,P,P]"]\)[t], 

          r636 -> kirsbp6*\(c["IRS[R,P,P,P,0,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,P,P,0,0,P]"]\)[t], 

          r637 -> kirsbp6*\(c["IRS[R,P,P,P,0,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,P,P,0,P,P]"]\)[t], 

          r638 -> kirsbp6*\(c["IRS[R,P,P,P,P,0,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,P,P,P,0,P]"]\)[t], 

          r639 -> kirsbp6*\(c["IRS[R,P,P,P,P,P,0]"]\)[t] - 
              kirsbp6d*\((\((xIrsGrb2 - xIrsGrb2b)\)/
                    xIrsGrb2)\)*\(c["IRS[R,P,P,P,P,P,P]"]\)[t], 

          r640 -> kbshc*\(c["RXpShc"]\)[t]*\(c["Shc[0,0]"]\)[t] - 
              kbshcd*\(c["Shc[R,0]"]\)[t], 

          r641 -> kbshc*\(c["RXpShc"]\)[t]*\(c["Shc[0,P]"]\)[t] - 
              kbshcd*\(c["Shc[R,P]"]\)[t], 

          r642 -> kshcp*\(c["Shc[0,0]"]\)[t] - 
              kshcpd*\((\((xShc - xShcb)\)/xShc)\)*\(c["Shc[0,P]"]\)[
                  t], 
r643 -> 
            kshcbp*\(c["Shc[R,0]"]\)[t] - 
              kshcbpd*\((\((xShc - xShcb)\)/xShc)\)*\(c["Shc[R,P]"]\)[
                  t], 
r644 -> 
            kbirsgrb2*\(c["IrsXpGrb2"]\)[t]*\(c["Grb2[0,0]"]\)[t] - 
              kbirsgrb2d*\(c["Grb2[IRS,0]"]\)[t], 

          r645 -> kbirsgrb2sos*\(c["IrsXpGrb2"]\)[
                  t]*\(c["Grb2[0,SOS]"]\)[t] - 
              kbirsgrb2sosd*\(c["Grb2[IRS,SOS]"]\)[t], 

          r646 -> kbirsgrb2sosp*\(c["IrsXpGrb2"]\)[
                  t]*\(c["Grb2[0,SOSp]"]\)[t] - 
              kbirsgrb2sospd*\(c["Grb2[IRS,SOSp]"]\)[t], 

          r647 -> kbsos*\(c["Grb2[0,0]"]\)[t]*\(c["SOS[0]"]\)[t] - 
              kbsosd*\(c["Grb2[0,SOS]"]\)[t], 

          r648 -> kbsos*\(c["Grb2[IRS,0]"]\)[t]*\(c["SOS[0]"]\)[t] - 
              kbsosd*\(c["Grb2[IRS,SOS]"]\)[t], 

          r649 -> kbsos*\(c["Grb2[Shc,0]"]\)[t]*\(c["SOS[0]"]\)[t] - 
              kbsosd*\(c["Grb2[Shc,SOS]"]\)[t], 

          r650 -> kbsosp*\(c["Grb2[0,0]"]\)[t]*\(c["SOS[p]"]\)[t] - 
              kbsosdp*\(c["Grb2[0,SOSp]"]\)[t], 

          r651 -> kbsosp*\(c["Grb2[IRS,0]"]\)[t]*\(c["SOS[p]"]\)[t] - 
              kbsosdp*\(c["Grb2[IRS,SOSp]"]\)[t], 

          r652 -> kbsosp*\(c["Grb2[Shc,0]"]\)[t]*\(c["SOS[p]"]\)[t] - 
              kbsosdp*\(c["Grb2[Shc,SOSp]"]\)[t], 

          r653 -> kbshcgrb2*\(c["ShcXp"]\)[t]*\(c["Grb2[0,0]"]\)[t] - 
              kbshcgrb2d*\(c["Grb2[Shc,0]"]\)[t], 

          r654 -> kbshcgrb2sos*\(c["ShcXp"]\)[t]*\(c["Grb2[0,SOS]"]\)[
                  t] - kbshcgrb2sosd*\(c["Grb2[Shc,SOS]"]\)[t], 

          r655 -> 
            kbshcgrbsosp2*\(c["ShcXp"]\)[t]*\(c["Grb2[0,SOSp]"]\)[
                  t] - kbshcgrb2sospd*\(c["Grb2[Shc,SOSp]"]\)[t], 

          r656 -> kpgrb2sos*\(c["Grb2[0,SOS]"]\)[t] - 
              kpgrb2sosd*\(c["Grb2[0,SOSp]"]\)[t], 

          r657 -> kpirsgrb2sos*\(c["Grb2[IRS,SOS]"]\)[t] - 
              pirsgrb2sosd*\(c["Grb2[IRS,SOSp]"]\)[t], 

          r658 -> kpshcgrb2sos*\(c["Grb2[Shc,SOS]"]\)[t] - 
              kpshcgrb2sosd*\(c["Grb2[Shc,SOSp]"]\)[t], 

          r659 -> kpsos*\(c["SOS[0]"]\)[t] - 
              kpsosd*\(c["SOS[p]"]\)[t], 

          r660 -> kbpi3k1*\(c["IrsXpPi3k1"]\)[t]*\(c["PI3K[0]"]\)[
                  t] - kbpi3k1d*\(c["PI3K[IRS1]"]\)[t], 

          r661 -> kbpi3k2*\(c["IrsXpPi3k2"]\)[t]*\(c["PI3K[0]"]\)[
                  t] - kbpi3k2d*\(c["PI3K[IRS2]"]\)[t], 

          r662 -> kbpi3k3*\(c["IrsXpPi3k3"]\)[t]*\(c["PI3K[0]"]\)[
                  t] - kbpi3k3d*\(c["PI3K[IRS3]"]\)[t], 

          r663 -> kbpi3k4*\(c["IrsXpPi3k4"]\)[t]*\(c["PI3K[0]"]\)[
                  t] - kbpi3k4d*\(c["PI3K[IRS4]"]\)[t], 

          r664 -> kbshp2*\(c["IrsXpShp2"]\)[t]*\(c["SHP2[0]"]\)[t] - 
              kbshp2d*\(c["SHP2[IRS]"]\)[t]};\)\(
\)
    \)\)\)

\(\(\( (*\ 
      128\ ODEs\ of\ the\ IRS\ layer\ *) \)\(
\)\(
\)\(\(IRSLayer = {\(c["IRS[0,0,0,0,0,0,0]"]'\)[
              t] == \(-r192\) - r256 - r288 - r320 - r352 - r384 - 
              r416, 
\(c["IRS[0,0,0,0,0,0,P]"]'\)[t] == \(-r193\) - 
              r257 - r289 - r321 - r353 - r385 + 
              r416, 
\(c["IRS[0,0,0,0,0,P,0]"]'\)[t] == \(-r194\) - 
              r258 - r290 - r322 - r354 + r384 - 
              r417, 
\(c["IRS[0,0,0,0,0,P,P]"]'\)[t] == \(-r195\) - 
              r259 - r291 - r323 - r355 + r385 + 
              r417, 
\(c["IRS[0,0,0,0,P,0,0]"]'\)[t] == \(-r196\) - 
              r260 - r292 - r324 + r352 - r386 - 
              r418, 
\(c["IRS[0,0,0,0,P,0,P]"]'\)[t] == \(-r197\) - 
              r261 - r293 - r325 + r353 - r387 + 
              r418, 
\(c["IRS[0,0,0,0,P,P,0]"]'\)[t] == \(-r198\) - 
              r262 - r294 - r326 + r354 + r386 - 
              r419, 
\(c["IRS[0,0,0,0,P,P,P]"]'\)[t] == \(-r199\) - 
              r263 - r295 - r327 + r355 + r387 + 
              r419, 
\(c["IRS[0,0,0,P,0,0,0]"]'\)[t] == \(-r200\) - 
              r264 - r296 + r320 - r356 - r388 - 
              r420, 
\(c["IRS[0,0,0,P,0,0,P]"]'\)[t] == \(-r201\) - 
              r265 - r297 + r321 - r357 - r389 + 
              r420, 
\(c["IRS[0,0,0,P,0,P,0]"]'\)[t] == \(-r202\) - 
              r266 - r298 + r322 - r358 + r388 - 
              r421, 
\(c["IRS[0,0,0,P,0,P,P]"]'\)[t] == \(-r203\) - 
              r267 - r299 + r323 - r359 + r389 + 
              r421, 
\(c["IRS[0,0,0,P,P,0,0]"]'\)[t] == \(-r204\) - 
              r268 - r300 + r324 + r356 - r390 - 
              r422, 
\(c["IRS[0,0,0,P,P,0,P]"]'\)[t] == \(-r205\) - 
              r269 - r301 + r325 + r357 - r391 + 
              r422, 
\(c["IRS[0,0,0,P,P,P,0]"]'\)[t] == \(-r206\) - 
              r270 - r302 + r326 + r358 + r390 - 
              r423, 
\(c["IRS[0,0,0,P,P,P,P]"]'\)[t] == \(-r207\) - 
              r271 - r303 + r327 + r359 + r391 + 
              r423, 
\(c["IRS[0,0,P,0,0,0,0]"]'\)[t] == \(-r208\) - 
              r272 + r288 - r328 - r360 - r392 - 
              r424, 
\(c["IRS[0,0,P,0,0,0,P]"]'\)[t] == \(-r209\) - 
              r273 + r289 - r329 - r361 - r393 + 
              r424, 
\(c["IRS[0,0,P,0,0,P,0]"]'\)[t] == \(-r210\) - 
              r274 + r290 - r330 - r362 + r392 - 
              r425, 
\(c["IRS[0,0,P,0,0,P,P]"]'\)[t] == \(-r211\) - 
              r275 + r291 - r331 - r363 + r393 + 
              r425, 
\(c["IRS[0,0,P,0,P,0,0]"]'\)[t] == \(-r212\) - 
              r276 + r292 - r332 + r360 - r394 - 
              r426, 
\(c["IRS[0,0,P,0,P,0,P]"]'\)[t] == \(-r213\) - 
              r277 + r293 - r333 + r361 - r395 + 
              r426, 
\(c["IRS[0,0,P,0,P,P,0]"]'\)[t] == \(-r214\) - 
              r278 + r294 - r334 + r362 + r394 - 
              r427, 
\(c["IRS[0,0,P,0,P,P,P]"]'\)[t] == \(-r215\) - 
              r279 + r295 - r335 + r363 + r395 + 
              r427, 
\(c["IRS[0,0,P,P,0,0,0]"]'\)[t] == \(-r216\) - 
              r280 + r296 + r328 - r364 - r396 - 
              r428, 
\(c["IRS[0,0,P,P,0,0,P]"]'\)[t] == \(-r217\) - 
              r281 + r297 + r329 - r365 - r397 + 
              r428, 
\(c["IRS[0,0,P,P,0,P,0]"]'\)[t] == \(-r218\) - 
              r282 + r298 + r330 - r366 + r396 - 
              r429, 
\(c["IRS[0,0,P,P,0,P,P]"]'\)[t] == \(-r219\) - 
              r283 + r299 + r331 - r367 + r397 + 
              r429, 
\(c["IRS[0,0,P,P,P,0,0]"]'\)[t] == \(-r220\) - 
              r284 + r300 + r332 + r364 - r398 - 
              r430, 
\(c["IRS[0,0,P,P,P,0,P]"]'\)[t] == \(-r221\) - 
              r285 + r301 + r333 + r365 - r399 + 
              r430, 
\(c["IRS[0,0,P,P,P,P,0]"]'\)[t] == \(-r222\) - 
              r286 + r302 + r334 + r366 + r398 - 
              r431, 
\(c["IRS[0,0,P,P,P,P,P]"]'\)[t] == \(-r223\) - 
              r287 + r303 + r335 + r367 + r399 + 
              r431, 
\(c["IRS[0,P,0,0,0,0,0]"]'\)[t] == \(-r224\) + 
              r256 - r304 - r336 - r368 - r400 - 
              r432, 
\(c["IRS[0,P,0,0,0,0,P]"]'\)[t] == \(-r225\) + 
              r257 - r305 - r337 - r369 - r401 + 
              r432, 
\(c["IRS[0,P,0,0,0,P,0]"]'\)[t] == \(-r226\) + 
              r258 - r306 - r338 - r370 + r400 - 
              r433, 
\(c["IRS[0,P,0,0,0,P,P]"]'\)[t] == \(-r227\) + 
              r259 - r307 - r339 - r371 + r401 + 
              r433, 
\(c["IRS[0,P,0,0,P,0,0]"]'\)[t] == \(-r228\) + 
              r260 - r308 - r340 + r368 - r402 - 
              r434, 
\(c["IRS[0,P,0,0,P,0,P]"]'\)[t] == \(-r229\) + 
              r261 - r309 - r341 + r369 - r403 + 
              r434, 
\(c["IRS[0,P,0,0,P,P,0]"]'\)[t] == \(-r230\) + 
              r262 - r310 - r342 + r370 + r402 - 
              r435, 
\(c["IRS[0,P,0,0,P,P,P]"]'\)[t] == \(-r231\) + 
              r263 - r311 - r343 + r371 + r403 + 
              r435, 
\(c["IRS[0,P,0,P,0,0,0]"]'\)[t] == \(-r232\) + 
              r264 - r312 + r336 - r372 - r404 - 
              r436, 
\(c["IRS[0,P,0,P,0,0,P]"]'\)[t] == \(-r233\) + 
              r265 - r313 + r337 - r373 - r405 + 
              r436, 
\(c["IRS[0,P,0,P,0,P,0]"]'\)[t] == \(-r234\) + 
              r266 - r314 + r338 - r374 + r404 - 
              r437, 
\(c["IRS[0,P,0,P,0,P,P]"]'\)[t] == \(-r235\) + 
              r267 - r315 + r339 - r375 + r405 + 
              r437, 
\(c["IRS[0,P,0,P,P,0,0]"]'\)[t] == \(-r236\) + 
              r268 - r316 + r340 + r372 - r406 - 
              r438, 
\(c["IRS[0,P,0,P,P,0,P]"]'\)[t] == \(-r237\) + 
              r269 - r317 + r341 + r373 - r407 + 
              r438, 
\(c["IRS[0,P,0,P,P,P,0]"]'\)[t] == \(-r238\) + 
              r270 - r318 + r342 + r374 + r406 - 
              r439, 
\(c["IRS[0,P,0,P,P,P,P]"]'\)[t] == \(-r239\) + 
              r271 - r319 + r343 + r375 + r407 + 
              r439, 
\(c["IRS[0,P,P,0,0,0,0]"]'\)[t] == \(-r240\) + 
              r272 + r304 - r344 - r376 - r408 - 
              r440, 
\(c["IRS[0,P,P,0,0,0,P]"]'\)[t] == \(-r241\) + 
              r273 + r305 - r345 - r377 - r409 + 
              r440, 
\(c["IRS[0,P,P,0,0,P,0]"]'\)[t] == \(-r242\) + 
              r274 + r306 - r346 - r378 + r408 - 
              r441, 
\(c["IRS[0,P,P,0,0,P,P]"]'\)[t] == \(-r243\) + 
              r275 + r307 - r347 - r379 + r409 + 
              r441, 
\(c["IRS[0,P,P,0,P,0,0]"]'\)[t] == \(-r244\) + 
              r276 + r308 - r348 + r376 - r410 - 
              r442, 
\(c["IRS[0,P,P,0,P,0,P]"]'\)[t] == \(-r245\) + 
              r277 + r309 - r349 + r377 - r411 + 
              r442, 
\(c["IRS[0,P,P,0,P,P,0]"]'\)[t] == \(-r246\) + 
              r278 + r310 - r350 + r378 + r410 - 
              r443, 
\(c["IRS[0,P,P,0,P,P,P]"]'\)[t] == \(-r247\) + 
              r279 + r311 - r351 + r379 + r411 + 
              r443, 
\(c["IRS[0,P,P,P,0,0,0]"]'\)[t] == \(-r248\) + 
              r280 + r312 + r344 - r380 - r412 - 
              r444, 
\(c["IRS[0,P,P,P,0,0,P]"]'\)[t] == \(-r249\) + 
              r281 + r313 + r345 - r381 - r413 + 
              r444, 
\(c["IRS[0,P,P,P,0,P,0]"]'\)[t] == \(-r250\) + 
              r282 + r314 + r346 - r382 + r412 - 
              r445, 
\(c["IRS[0,P,P,P,0,P,P]"]'\)[t] == \(-r251\) + 
              r283 + r315 + r347 - r383 + r413 + 
              r445, 
\(c["IRS[0,P,P,P,P,0,0]"]'\)[t] == \(-r252\) + 
              r284 + r316 + r348 + r380 - r414 - 
              r446, 
\(c["IRS[0,P,P,P,P,0,P]"]'\)[t] == \(-r253\) + 
              r285 + r317 + r349 + r381 - r415 + 
              r446, 
\(c["IRS[0,P,P,P,P,P,0]"]'\)[t] == \(-r254\) + 
              r286 + r318 + r350 + r382 + r414 - 
              r447, 
\(c["IRS[0,P,P,P,P,P,P]"]'\)[t] == \(-r255\) + 
              r287 + r319 + r351 + r383 + r415 + 
              r447, 
\(c["IRS[R,0,0,0,0,0,0]"]'\)[t] == 
            r192 - r448 - r480 - r512 - r544 - r576 - 
              r608, 
\(c["IRS[R,0,0,0,0,0,P]"]'\)[t] == 
            r193 - r449 - r481 - r513 - r545 - r577 + 
              r608, 
\(c["IRS[R,0,0,0,0,P,0]"]'\)[t] == 
            r194 - r450 - r482 - r514 - r546 + r576 - 
              r609, 
\(c["IRS[R,0,0,0,0,P,P]"]'\)[t] == 
            r195 - r451 - r483 - r515 - r547 + r577 + 
              r609, 
\(c["IRS[R,0,0,0,P,0,0]"]'\)[t] == 
            r196 - r452 - r484 - r516 + r544 - r578 - 
              r610, 
\(c["IRS[R,0,0,0,P,0,P]"]'\)[t] == 
            r197 - r453 - r485 - r517 + r545 - r579 + 
              r610, 
\(c["IRS[R,0,0,0,P,P,0]"]'\)[t] == 
            r198 - r454 - r486 - r518 + r546 + r578 - 
              r611, 
\(c["IRS[R,0,0,0,P,P,P]"]'\)[t] == 
            r199 - r455 - r487 - r519 + r547 + r579 + 
              r611, 
\(c["IRS[R,0,0,P,0,0,0]"]'\)[t] == 
            r200 - r456 - r488 + r512 - r548 - r580 - 
              r612, 
\(c["IRS[R,0,0,P,0,0,P]"]'\)[t] == 
            r201 - r457 - r489 + r513 - r549 - r581 + 
              r612, 
\(c["IRS[R,0,0,P,0,P,0]"]'\)[t] == 
            r202 - r458 - r490 + r514 - r550 + r580 - 
              r613, 
\(c["IRS[R,0,0,P,0,P,P]"]'\)[t] == 
            r203 - r459 - r491 + r515 - r551 + r581 + 
              r613, 
\(c["IRS[R,0,0,P,P,0,0]"]'\)[t] == 
            r204 - r460 - r492 + r516 + r548 - r582 - 
              r614, 
\(c["IRS[R,0,0,P,P,0,P]"]'\)[t] == 
            r205 - r461 - r493 + r517 + r549 - r583 + 
              r614, 
\(c["IRS[R,0,0,P,P,P,0]"]'\)[t] == 
            r206 - r462 - r494 + r518 + r550 + r582 - 
              r615, 
\(c["IRS[R,0,0,P,P,P,P]"]'\)[t] == 
            r207 - r463 - r495 + r519 + r551 + r583 + 
              r615, 
\(c["IRS[R,0,P,0,0,0,0]"]'\)[t] == 
            r208 - r464 + r480 - r520 - r552 - r584 - 
              r616, 
\(c["IRS[R,0,P,0,0,0,P]"]'\)[t] == 
            r209 - r465 + r481 - r521 - r553 - r585 + 
              r616, 
\(c["IRS[R,0,P,0,0,P,0]"]'\)[t] == 
            r210 - r466 + r482 - r522 - r554 + r584 - 
              r617, 
\(c["IRS[R,0,P,0,0,P,P]"]'\)[t] == 
            r211 - r467 + r483 - r523 - r555 + r585 + 
              r617, 
\(c["IRS[R,0,P,0,P,0,0]"]'\)[t] == 
            r212 - r468 + r484 - r524 + r552 - r586 - 
              r618, 
\(c["IRS[R,0,P,0,P,0,P]"]'\)[t] == 
            r213 - r469 + r485 - r525 + r553 - r587 + 
              r618, 
\(c["IRS[R,0,P,0,P,P,0]"]'\)[t] == 
            r214 - r470 + r486 - r526 + r554 + r586 - 
              r619, 
\(c["IRS[R,0,P,0,P,P,P]"]'\)[t] == 
            r215 - r471 + r487 - r527 + r555 + r587 + 
              r619, 
\(c["IRS[R,0,P,P,0,0,0]"]'\)[t] == 
            r216 - r472 + r488 + r520 - r556 - r588 - 
              r620, 
\(c["IRS[R,0,P,P,0,0,P]"]'\)[t] == 
            r217 - r473 + r489 + r521 - r557 - r589 + 
              r620, 
\(c["IRS[R,0,P,P,0,P,0]"]'\)[t] == 
            r218 - r474 + r490 + r522 - r558 + r588 - 
              r621, 
\(c["IRS[R,0,P,P,0,P,P]"]'\)[t] == 
            r219 - r475 + r491 + r523 - r559 + r589 + 
              r621, 
\(c["IRS[R,0,P,P,P,0,0]"]'\)[t] == 
            r220 - r476 + r492 + r524 + r556 - r590 - 
              r622, 
\(c["IRS[R,0,P,P,P,0,P]"]'\)[t] == 
            r221 - r477 + r493 + r525 + r557 - r591 + 
              r622, 
\(c["IRS[R,0,P,P,P,P,0]"]'\)[t] == 
            r222 - r478 + r494 + r526 + r558 + r590 - 
              r623, 
\(c["IRS[R,0,P,P,P,P,P]"]'\)[t] == 
            r223 - r479 + r495 + r527 + r559 + r591 + 
              r623, 
\(c["IRS[R,P,0,0,0,0,0]"]'\)[t] == 
            r224 + r448 - r496 - r528 - r560 - r592 - 
              r624, 
\(c["IRS[R,P,0,0,0,0,P]"]'\)[t] == 
            r225 + r449 - r497 - r529 - r561 - r593 + 
              r624, 
\(c["IRS[R,P,0,0,0,P,0]"]'\)[t] == 
            r226 + r450 - r498 - r530 - r562 + r592 - 
              r625, 
\(c["IRS[R,P,0,0,0,P,P]"]'\)[t] == 
            r227 + r451 - r499 - r531 - r563 + r593 + 
              r625, 
\(c["IRS[R,P,0,0,P,0,0]"]'\)[t] == 
            r228 + r452 - r500 - r532 + r560 - r594 - 
              r626, 
\(c["IRS[R,P,0,0,P,0,P]"]'\)[t] == 
            r229 + r453 - r501 - r533 + r561 - r595 + 
              r626, 
\(c["IRS[R,P,0,0,P,P,0]"]'\)[t] == 
            r230 + r454 - r502 - r534 + r562 + r594 - 
              r627, 
\(c["IRS[R,P,0,0,P,P,P]"]'\)[t] == 
            r231 + r455 - r503 - r535 + r563 + r595 + 
              r627, 
\(c["IRS[R,P,0,P,0,0,0]"]'\)[t] == 
            r232 + r456 - r504 + r528 - r564 - r596 - 
              r628, 
\(c["IRS[R,P,0,P,0,0,P]"]'\)[t] == 
            r233 + r457 - r505 + r529 - r565 - r597 + 
              r628, 
\(c["IRS[R,P,0,P,0,P,0]"]'\)[t] == 
            r234 + r458 - r506 + r530 - r566 + r596 - 
              r629, 
\(c["IRS[R,P,0,P,0,P,P]"]'\)[t] == 
            r235 + r459 - r507 + r531 - r567 + r597 + 
              r629, 
\(c["IRS[R,P,0,P,P,0,0]"]'\)[t] == 
            r236 + r460 - r508 + r532 + r564 - r598 - 
              r630, 
\(c["IRS[R,P,0,P,P,0,P]"]'\)[t] == 
            r237 + r461 - r509 + r533 + r565 - r599 + 
              r630, 
\(c["IRS[R,P,0,P,P,P,0]"]'\)[t] == 
            r238 + r462 - r510 + r534 + r566 + r598 - 
              r631, 
\(c["IRS[R,P,0,P,P,P,P]"]'\)[t] == 
            r239 + r463 - r511 + r535 + r567 + r599 + 
              r631, 
\(c["IRS[R,P,P,0,0,0,0]"]'\)[t] == 
            r240 + r464 + r496 - r536 - r568 - r600 - 
              r632, 
\(c["IRS[R,P,P,0,0,0,P]"]'\)[t] == 
            r241 + r465 + r497 - r537 - r569 - r601 + 
              r632, 
\(c["IRS[R,P,P,0,0,P,0]"]'\)[t] == 
            r242 + r466 + r498 - r538 - r570 + r600 - 
              r633, 
\(c["IRS[R,P,P,0,0,P,P]"]'\)[t] == 
            r243 + r467 + r499 - r539 - r571 + r601 + 
              r633, 
\(c["IRS[R,P,P,0,P,0,0]"]'\)[t] == 
            r244 + r468 + r500 - r540 + r568 - r602 - 
              r634, 
\(c["IRS[R,P,P,0,P,0,P]"]'\)[t] == 
            r245 + r469 + r501 - r541 + r569 - r603 + 
              r634, 
\(c["IRS[R,P,P,0,P,P,0]"]'\)[t] == 
            r246 + r470 + r502 - r542 + r570 + r602 - 
              r635, 
\(c["IRS[R,P,P,0,P,P,P]"]'\)[t] == 
            r247 + r471 + r503 - r543 + r571 + r603 + 
              r635, 
\(c["IRS[R,P,P,P,0,0,0]"]'\)[t] == 
            r248 + r472 + r504 + r536 - r572 - r604 - 
              r636, 
\(c["IRS[R,P,P,P,0,0,P]"]'\)[t] == 
            r249 + r473 + r505 + r537 - r573 - r605 + 
              r636, 
\(c["IRS[R,P,P,P,0,P,0]"]'\)[t] == 
            r250 + r474 + r506 + r538 - r574 + r604 - 
              r637, 
\(c["IRS[R,P,P,P,0,P,P]"]'\)[t] == 
            r251 + r475 + r507 + r539 - r575 + r605 + 
              r637, 
\(c["IRS[R,P,P,P,P,0,0]"]'\)[t] == 
            r252 + r476 + r508 + r540 + r572 - r606 - 
              r638, 
\(c["IRS[R,P,P,P,P,0,P]"]'\)[t] == 
            r253 + r477 + r509 + r541 + r573 - r607 + 
              r638, 
\(c["IRS[R,P,P,P,P,P,0]"]'\)[t] == 
            r254 + r478 + r510 + r542 + r574 + r606 - 
              r639, 
\(c["IRS[R,P,P,P,P,P,P]"]'\)[t] == 
            r255 + r479 + r511 + r543 + r575 + r607 + 
              r639};\)


    \(ODEIRS = \(Cases[IRSLayer, x_ == y_ :> y] /. 
            ReactionRates\) /. LevelConnections;\)

    \(VarsIRS = 
        Integrate[Cases[IRSLayer, x_ == z_ :> x], 
          t];\)

 (*Transformation\ of\ the\ IRS - 
        Module\ using\ the\ linear\ hierarchical\ transformation\ discussed\ in\ Conzelmann\ et\ \(\(al\)\(.\)\)\ *) 

 (*0  
        th\ \(tier : \ 
          Overall\ concentration\ of\ IRS\)\ *) 

    \(\(ct[IRS[X, X, X, X, X, X, X]]\)[t] = 
        Plus @@ VarsIRS;\)

 (*1  
        st\ \(tier : \ 
          Levels\ of\ occupancy\ for\ all\ 7\ binding\ domains\)\ *) 

    \(\(ct[IRS[R, X, X, X, X, X, X]]\)[t] = 
        Plus @@ Select[
            VarsIRS, \((\(ToExpression[\(Head[#]\)[\([1]\)]]\)[\([1]\)] === 
                  R)\) &];\)

    \(\(ct[IRS[X, P, X, X, X, X, X]]\)[t] = 
        Plus @@ Select[
            VarsIRS, \((\(ToExpression[\(Head[#]\)[\([1]\)]]\)[\([2]\)] === 
                  P)\) &];\)

    \(\(ct[IRS[X, X, P, X, X, X, X]]\)[t] = 
        Plus @@ Select[
            VarsIRS, \((\(ToExpression[\(Head[#]\)[\([1]\)]]\)[\([3]\)] === 
                  P)\) &];\)

    \(\(ct[IRS[X, X, X, P, X, X, X]]\)[t] = 
        Plus @@ Select[
            VarsIRS, \((\(ToExpression[\(Head[#]\)[\([1]\)]]\)[\([4]\)] === 
                  P)\) &];\)

    \(\(ct[IRS[X, X, X, X, P, X, X]]\)[t] = 
        Plus @@ Select[
            VarsIRS, \((\(ToExpression[\(Head[#]\)[\([1]\)]]\)[\([5]\)] === 
                  P)\) &];\)

    \(\(ct[IRS[X, X, X, X, X, P, X]]\)[t] = 
        Plus @@ Select[
            VarsIRS, \((\(ToExpression[\(Head[#]\)[\([1]\)]]\)[\([6]\)] === 
                  P)\) &];\)

    \(\(ct[IRS[X, X, X, X, X, X, P]]\)[t] = 
        Plus @@ Select[
            VarsIRS, \((\(ToExpression[\(Head[#]\)[\([1]\)]]\)[\([7]\)] === 
                  P)\) &];\)

 (*2  
        nd\ \(tier : \ 
          pairs\ of\ concurrently\ occupied\ binding\ domains\)\ *) 

    \(\(ct[IRS[R, P, X, X, X, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, P, X, X, X, X, X]]\)[
                t]];\)

    \(\(ct[IRS[R, X, P, X, X, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, P, X, X, X, X]]\)[
                t]];\)

    \(\(ct[IRS[R, X, X, P, X, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, P, X, X, X]]\)[
                t]];\)

    \(\(ct[IRS[R, X, X, X, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[
                t]];\)

    \(\(ct[IRS[R, X, X, X, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[
                t]];\)

    \(\(ct[IRS[R, X, X, X, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, P, P, X, X, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, P, X, X, X, X]]\)[t]];\)

    \(\(ct[IRS[X, P, X, P, X, X, X]]\)[t] = 
        Plus @@ 
          Intersection[List @@ \(ct[IRS[X, P, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, P, X, X, X]]\)[t]];\)

    \(\(ct[IRS[X, P, X, X, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[IRS[X, P, X, X, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, P, X, X, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, X, P, P, X, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, P, X, X, X]]\)[t]];\)

    \(\(ct[IRS[X, X, P, X, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[IRS[X, X, P, X, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, X, P, X, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, X, X, P, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, X, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[IRS[X, X, X, P, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, X, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, X, X, P, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, X, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, X, X, X, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, X, X, X, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, X, X, X, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

 (*3  
        rd\ \(tier : \ 
          triples\ of\ concurrently\ occupied\ binding\ domains\)\ *) 

    \(\(ct[IRS[R, P, P, X, X, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, P, X, X, X, X]]\)[t]];\)

    \(\(ct[IRS[R, P, X, P, X, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, P, X, X, X]]\)[t]];\)

    \(\(ct[IRS[R, P, X, X, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[
                t]];\)

    \(\(ct[IRS[R, P, X, X, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, P, X, X, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[R, X, P, P, X, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, P, X, X, X]]\)[t]];\)

    \(\(ct[IRS[R, X, P, X, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[IRS[R, X, P, X, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, X, P, X, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[R, X, X, P, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[IRS[R, X, X, P, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, X, X, P, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[R, X, X, X, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, X, X, X, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[R, X, X, X, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, X, X, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, P, P, P, X, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, P, X, X, X]]\)[t]];\)

    \(\(ct[IRS[X, P, P, X, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[IRS[X, P, P, X, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, P, P, X, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, P, X, P, P, X, X]]\)[t] = 
        Plus @@ 
          Intersection[List @@ \(ct[IRS[X, P, X, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[IRS[X, P, X, P, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, X, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, P, X, P, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, X, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, P, X, X, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, X, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, P, X, X, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, X, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, P, X, X, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, X, X, X, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, X, P, P, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, P, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[IRS[X, X, P, P, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, P, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, X, P, P, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, P, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, X, P, X, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, P, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, X, P, X, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, P, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, X, P, X, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, P, X, X, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, X, X, P, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, X, P, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, X, X, P, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, X, P, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, X, X, P, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, X, P, X, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, X, X, X, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, X, X, P, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

 (*4  
        th\ \(tier : \ 
          4 - tuples\ of\ concurrently\ occupied\ binding\ domains\)\ *) 

    \(\(ct[IRS[R, P, P, P, X, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, P, X, X, X]]\)[t]];\)

    \(\(ct[IRS[R, P, P, X, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[IRS[R, P, P, X, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, P, P, X, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, P, X, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[R, P, X, P, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[IRS[R, P, X, P, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, P, X, P, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[R, P, X, X, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, P, X, X, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[R, P, X, X, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, X, X, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[R, X, P, P, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, P, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[IRS[R, X, P, P, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, P, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, X, P, P, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, P, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[IRS[R, X, P, X, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, P, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, X, P, X, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, P, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[IRS[R, X, P, X, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, P, X, X, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[R, X, X, P, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, P, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, X, X, P, P, X, P]]\)[t] = 
        Plus @@ 
          Intersection[List @@ \(ct[IRS[R, X, X, P, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[IRS[R, X, X, P, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, P, X, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[R, X, X, X, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, X, P, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, P, P, P, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, P, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[IRS[X, P, P, P, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, P, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, P, P, P, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, P, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, P, P, X, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, P, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, P, P, X, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, P, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, P, P, X, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, P, X, X, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, P, X, P, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, X, P, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, P, X, P, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, X, P, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[IRS[X, P, X, P, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, X, P, X, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, P, X, X, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, X, X, P, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, X, P, P, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, P, P, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, X, P, P, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, P, P, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[IRS[X, X, P, P, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, P, P, X, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, X, P, X, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, P, X, P, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, X, X, P, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, X, P, P, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

 (*5  
        th\ \(tier : \ 
          5 - tuples\ of\ concurrently\ occupied\ binding\ domains\)\ *) 

    \(\(ct[IRS[R, P, P, P, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, P, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[IRS[R, P, P, P, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, P, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, P, P, X, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, P, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[
                t]];\)

    \(\(ct[IRS[R, P, X, P, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, P, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, X, P, P, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, P, P, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, P, P, P, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, P, P, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[
                t]];\)

    \(\(ct[IRS[R, P, P, P, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, P, P, X, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[IRS[R, P, P, X, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, P, X, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[IRS[R, P, X, P, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, P, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[IRS[R, X, P, P, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, P, P, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[IRS[X, P, P, P, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, P, P, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[R, P, P, X, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, P, X, X, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[IRS[R, P, X, P, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, P, X, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[IRS[R, X, P, P, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, P, P, X, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[IRS[X, P, P, P, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, P, P, X, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[R, P, X, X, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, X, P, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[IRS[R, X, P, X, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, P, X, P, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[IRS[X, P, P, X, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, P, X, P, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[R, X, X, P, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, X, P, P, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[IRS[X, P, X, P, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, X, P, P, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

    \(\(ct[IRS[X, X, P, P, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, X, P, P, P, P, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, X, P]]\)[
                t]];\)

 (*6  
        th\ \(tier : \ 
          6 - tuples\ of\ concurrently\ occupied\ binding\ domains\)\ *) 

    \(\(ct[IRS[R, P, P, P, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, P, P, P, X, X]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, P, P, P, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, P, P, X, X, P]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, P, X, X]]\)[
                t]];\)

    \(\(ct[IRS[R, P, P, P, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, P, P, X, X, P]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, P, P, X, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, P, X, P, X, P]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, P, X, P, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, X, P, P, X, P]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[R, X, P, P, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, X, P, P, P, X, P]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[IRS[X, P, P, P, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[X, P, P, P, P, X, P]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[
                t]];\)

 (*7  
        th\ \(tier : \ micro - states\)\ *) 

    \(\(ct[IRS[R, P, P, P, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[IRS[R, P, P, P, P, X, P]]\)[t], 
            List @@ \(ct[IRS[X, X, X, X, X, P, X]]\)[
                t]];\)



    \)\)\)

\(\(\(
\)\( (*\ 
      Vector\ of\ new\ variables\ according\ to\ Conzelmann\ et\ \(\(al\)\(.\)\)\ *) \)\(
\)\(\(NewVars = {\(c[
              IRS[X, X, X, X, X, X, X]]\)[t], \(c[IRS[R, X, X, X, X, X, X]]\)[
            t], \(c[IRS[X, P, X, X, X, X, X]]\)[
            t], \(c[IRS[X, X, P, X, X, X, X]]\)[
            t], 
\(c[IRS[X, X, X, P, X, X, X]]\)[
            t], \(c[IRS[X, X, X, X, P, X, X]]\)[
            t], \(c[IRS[X, X, X, X, X, P, X]]\)[
            t], \(c[IRS[X, X, X, X, X, X, P]]\)[
            t], \(c[IRS[R, P, X, X, X, X, X]]\)[
            t], 
\(c[IRS[R, X, P, X, X, X, X]]\)[
            t], \(c[IRS[R, X, X, P, X, X, X]]\)[
            t], \(c[IRS[R, X, X, X, P, X, X]]\)[
            t], \(c[IRS[R, X, X, X, X, P, X]]\)[
            t], \(c[IRS[R, X, X, X, X, X, P]]\)[
            t], \(c[IRS[X, P, P, X, X, X, X]]\)[
            t], \(c[IRS[X, P, X, P, X, X, X]]\)[
            t], \(c[IRS[X, P, X, X, P, X, X]]\)[
            t], \(c[IRS[X, P, X, X, X, P, X]]\)[
            t], \(c[IRS[X, P, X, X, X, X, P]]\)[
            t], \(c[IRS[X, X, P, P, X, X, X]]\)[
            t], \(c[IRS[X, X, P, X, P, X, X]]\)[
            t], \(c[IRS[X, X, P, X, X, P, X]]\)[
            t], \(c[IRS[X, X, P, X, X, X, P]]\)[
            t], \(c[IRS[X, X, X, P, P, X, X]]\)[
            t], \(c[IRS[X, X, X, P, X, P, X]]\)[
            t], \(c[IRS[X, X, X, P, X, X, P]]\)[
            t], \(c[IRS[X, X, X, X, P, P, X]]\)[
            t], \(c[IRS[X, X, X, X, P, X, P]]\)[
            t], \(c[IRS[X, X, X, X, X, P, P]]\)[
            t], 
\(c[IRS[R, P, P, X, X, X, X]]\)[
            t], \(c[IRS[R, P, X, P, X, X, X]]\)[
            t], \(c[IRS[R, P, X, X, P, X, X]]\)[
            t], \(c[IRS[R, P, X, X, X, P, X]]\)[
            t], \(c[IRS[R, P, X, X, X, X, P]]\)[
            t], \(c[IRS[R, X, P, P, X, X, X]]\)[
            t], \(c[IRS[R, X, P, X, P, X, X]]\)[
            t], \(c[IRS[R, X, P, X, X, P, X]]\)[
            t], \(c[IRS[R, X, P, X, X, X, P]]\)[
            t], \(c[IRS[R, X, X, P, P, X, X]]\)[
            t], \(c[IRS[R, X, X, P, X, P, X]]\)[
            t], \(c[IRS[R, X, X, P, X, X, P]]\)[
            t], \(c[IRS[R, X, X, X, P, P, X]]\)[
            t], \(c[IRS[R, X, X, X, P, X, P]]\)[
            t], \(c[IRS[R, X, X, X, X, P, P]]\)[
            t], \(c[IRS[X, P, P, P, X, X, X]]\)[
            t], \(c[IRS[X, P, P, X, P, X, X]]\)[
            t], \(c[IRS[X, P, P, X, X, P, X]]\)[
            t], \(c[IRS[X, P, P, X, X, X, P]]\)[
            t], \(c[IRS[X, P, X, P, P, X, X]]\)[
            t], \(c[IRS[X, P, X, P, X, P, X]]\)[
            t], \(c[IRS[X, P, X, P, X, X, P]]\)[
            t], \(c[IRS[X, P, X, X, P, P, X]]\)[
            t], \(c[IRS[X, P, X, X, P, X, P]]\)[
            t], \(c[IRS[X, P, X, X, X, P, P]]\)[
            t], \(c[IRS[X, X, P, P, P, X, X]]\)[
            t], \(c[IRS[X, X, P, P, X, P, X]]\)[
            t], \(c[IRS[X, X, P, P, X, X, P]]\)[
            t], \(c[IRS[X, X, P, X, P, P, X]]\)[
            t], \(c[IRS[X, X, P, X, P, X, P]]\)[
            t], \(c[IRS[X, X, P, X, X, P, P]]\)[
            t], \(c[IRS[X, X, X, P, P, P, X]]\)[
            t], \(c[IRS[X, X, X, P, P, X, P]]\)[
            t], \(c[IRS[X, X, X, P, X, P, P]]\)[
            t], \(c[IRS[X, X, X, X, P, P, P]]\)[
            t], \(c[IRS[R, P, P, P, X, X, X]]\)[
            t], \(c[IRS[R, P, P, X, P, X, X]]\)[
            t], \(c[IRS[R, P, P, X, X, P, X]]\)[
            t], \(c[IRS[R, P, P, X, X, X, P]]\)[
            t], \(c[IRS[R, P, X, P, P, X, X]]\)[
            t], \(c[IRS[R, P, X, P, X, P, X]]\)[
            t], \(c[IRS[R, P, X, P, X, X, P]]\)[
            t], \(c[IRS[R, P, X, X, P, P, X]]\)[
            t], \(c[IRS[R, P, X, X, P, X, P]]\)[
            t], \(c[IRS[R, P, X, X, X, P, P]]\)[
            t], \(c[IRS[R, X, P, P, P, X, X]]\)[
            t], \(c[IRS[R, X, P, P, X, P, X]]\)[
            t], \(c[IRS[R, X, P, P, X, X, P]]\)[
            t], \(c[IRS[R, X, P, X, P, P, X]]\)[
            t], \(c[IRS[R, X, P, X, P, X, P]]\)[
            t], \(c[IRS[R, X, P, X, X, P, P]]\)[
            t], \(c[IRS[R, X, X, P, P, P, X]]\)[
            t], \(c[IRS[R, X, X, P, P, X, P]]\)[
            t], \(c[IRS[R, X, X, P, X, P, P]]\)[
            t], \(c[IRS[R, X, X, X, P, P, P]]\)[
            t], \(c[IRS[X, P, P, P, P, X, X]]\)[
            t], \(c[IRS[X, P, P, P, X, P, X]]\)[
            t], \(c[IRS[X, P, P, P, X, X, P]]\)[
            t], \(c[IRS[X, P, P, X, P, P, X]]\)[
            t], \(c[IRS[X, P, P, X, P, X, P]]\)[
            t], \(c[IRS[X, P, P, X, X, P, P]]\)[
            t], \(c[IRS[X, P, X, P, P, P, X]]\)[
            t], \(c[IRS[X, P, X, P, P, X, P]]\)[
            t], \(c[IRS[X, P, X, P, X, P, P]]\)[
            t], \(c[IRS[X, P, X, X, P, P, P]]\)[
            t], \(c[IRS[X, X, P, P, P, P, X]]\)[
            t], \(c[IRS[X, X, P, P, P, X, P]]\)[
            t], \(c[IRS[X, X, P, P, X, P, P]]\)[
            t], \(c[IRS[X, X, P, X, P, P, P]]\)[
            t], \(c[IRS[X, X, X, P, P, P, P]]\)[
            t], 
\(c[IRS[R, P, P, P, P, X, X]]\)[
            t], \(c[IRS[R, P, P, P, X, P, X]]\)[
            t], \(c[IRS[R, P, P, X, P, P, X]]\)[
            t], \(c[IRS[R, P, X, P, P, P, X]]\)[
            t], \(c[IRS[R, X, P, P, P, P, X]]\)[
            t], \(c[IRS[X, P, P, P, P, P, X]]\)[
            t], \(c[IRS[R, P, P, P, X, X, P]]\)[
            t], \(c[IRS[R, P, P, X, P, X, P]]\)[
            t], \(c[IRS[R, P, X, P, P, X, P]]\)[
            t], \(c[IRS[R, X, P, P, P, X, P]]\)[
            t], \(c[IRS[X, P, P, P, P, X, P]]\)[
            t], \(c[IRS[R, P, P, X, X, P, P]]\)[
            t], \(c[IRS[R, P, X, P, X, P, P]]\)[
            t], \(c[IRS[R, X, P, P, X, P, P]]\)[
            t], \(c[IRS[X, P, P, P, X, P, P]]\)[
            t], \(c[IRS[R, P, X, X, P, P, P]]\)[
            t], \(c[IRS[R, X, P, X, P, P, P]]\)[
            t], \(c[IRS[X, P, P, X, P, P, P]]\)[
            t], \(c[IRS[R, X, X, P, P, P, P]]\)[
            t], \(c[IRS[X, P, X, P, P, P, P]]\)[
            t], \(c[IRS[X, X, P, P, P, P, P]]\)[
            t], \(c[IRS[R, P, P, P, P, P, X]]\)[
            t], \(c[IRS[R, P, P, P, P, X, P]]\)[
            t], \(c[IRS[R, P, P, P, X, P, P]]\)[
            t], \(c[IRS[R, P, P, X, P, P, P]]\)[
            t], \(c[IRS[R, P, X, P, P, P, P]]\)[
            t], \(c[IRS[R, X, P, P, P, P, P]]\)[
            t], \(c[IRS[X, P, P, P, P, P, P]]\)[
            t], \(c[IRS[R, P, P, P, P, P, P]]\)[
            t]};\)


 (*\ Calculation\ of\ the\ Transformation\ Matrix\ and\ its\ inverse . \ \(Additionally : \ 
            Test\ whether\ the\ transformation\ is\ invertible\ \((MatrixRank)\)\)\ *) 

    \(Trafo = \(\((ct @@ Head[NewVars[\([#]\)]])\)[t] &\) /@ 
          Range[Length[NewVars]];\)

    \(TrafoMatrix = Outer[D, Trafo, VarsIRS];\)

    MatrixRank[TrafoMatrix]

    \(InvTrafoMatrix = 
        Inverse[TrafoMatrix];\)

 (*\ 
      Inverse\ \(Trafo : \ 
          How\ the\ old\ variables\ can\ be\ calculated\ using\ the\ new\ variables\)\ *) 

    \(ReplInv = \(VarsIRS[\([#]\)] -> \((InvTrafoMatrix . 
                    NewVars)\)[\([#]\)] &\) /@ 
          Range[Length[NewVars]];\)

 (*\ 
      Transformation\ of\ the\ 128\ ODE\ system\ to\ new\ coordinates\ *) 

    \(ODETrafo = TrafoMatrix . ODEIRS /. ReplInv;\)

    \)\)\)

ODEIRSModuleReduced = (D[
                  NewVars[[#]], t] == 
                FullSimplify[ODETrafo[[#]]]) & /@ 
          Range[1, 14];

\(\(\( (*\ 
      64\ ODEs\ of\ the\ Receptor\ layer\ *) \)\(
\)\(
\)\(\(ReceptorLayer = {\(c["R[0,0,0,0,0,0]"]'\)[
              t] == \(-r0\) - r16 - r64 - r96 - r128 - 
              r160, 
\(c["R[0,0,0,0,0,P]"]'\)[t] == \(-r1\) - r17 - 
              r65 - r97 - r129 + r160, 
\(c["R[0,0,0,0,P,0]"]'\)[
              t] == \(-r2\) - r18 - r66 - r98 + r128 - 
              r161, 
\(c["R[0,0,0,0,P,P]"]'\)[t] == \(-r3\) - r19 - 
              r67 - r99 + r129 + r161, 
\(c["R[0,0,0,P,0,0]"]'\)[
              t] == \(-r4\) - r20 - r68 + r96 - r130 - 
              r162, 
\(c["R[0,0,0,P,0,P]"]'\)[t] == \(-r5\) - r21 - 
              r69 + r97 - r131 + r162, 
\(c["R[0,0,0,P,P,0]"]'\)[
              t] == \(-r6\) - r22 - r70 + r98 + r130 - 
              r163, 
\(c["R[0,0,0,P,P,P]"]'\)[t] == \(-r7\) - r23 - 
              r71 + r99 + r131 + r163, 
\(c["R[0,0,P,0,0,0]"]'\)[
              t] == \(-r8\) - r24 + r64 - r100 - r132 - 
              r164, 
\(c["R[0,0,P,0,0,P]"]'\)[t] == \(-r9\) - r25 + 
              r65 - r101 - r133 + r164, 
\(c["R[0,0,P,0,P,0]"]'\)[
              t] == \(-r10\) - r26 + r66 - r102 + r132 - 
              r165, 
\(c["R[0,0,P,0,P,P]"]'\)[t] == \(-r11\) - r27 + 
              r67 - r103 + r133 + r165, 
\(c["R[0,0,P,P,0,0]"]'\)[
              t] == \(-r12\) - r28 + r68 + r100 - r134 - 
              r166, 
\(c["R[0,0,P,P,0,P]"]'\)[t] == \(-r13\) - r29 + 
              r69 + r101 - r135 + r166, 
\(c["R[0,0,P,P,P,0]"]'\)[
              t] == \(-r14\) - r30 + r70 + r102 + r134 - 
              r167, 
\(c["R[0,0,P,P,P,P]"]'\)[t] == \(-r15\) - r31 + 
              r71 + r103 + r135 + r167, 
\(c["R[0,I,0,0,0,0]"]'\)[t] == 
            r16 - r48 - r80 - r112 - r144 - 
              r176, 
\(c["R[0,I,0,0,0,P]"]'\)[t] == 
            r17 - r49 - r81 - r113 - r145 + 
              r176, 
\(c["R[0,I,0,0,P,0]"]'\)[t] == 
            r18 - r50 - r82 - r114 + r144 - 
              r177, 
\(c["R[0,I,0,0,P,P]"]'\)[t] == 
            r19 - r51 - r83 - r115 + r145 + 
              r177, 
\(c["R[0,I,0,P,0,0]"]'\)[t] == 
            r20 - r52 - r84 + r112 - r146 - 
              r178, 
\(c["R[0,I,0,P,0,P]"]'\)[t] == 
            r21 - r53 - r85 + r113 - r147 + 
              r178, 
\(c["R[0,I,0,P,P,0]"]'\)[t] == 
            r22 - r54 - r86 + r114 + r146 - 
              r179, 
\(c["R[0,I,0,P,P,P]"]'\)[t] == 
            r23 - r55 - r87 + r115 + r147 + 
              r179, 
\(c["R[0,I,P,0,0,0]"]'\)[t] == 
            r24 - r56 + r80 - r116 - r148 - 
              r180, 
\(c["R[0,I,P,0,0,P]"]'\)[t] == 
            r25 - r57 + r81 - r117 - r149 + 
              r180, 
\(c["R[0,I,P,0,P,0]"]'\)[t] == 
            r26 - r58 + r82 - r118 + r148 - 
              r181, 
\(c["R[0,I,P,0,P,P]"]'\)[t] == 
            r27 - r59 + r83 - r119 + r149 + 
              r181, 
\(c["R[0,I,P,P,0,0]"]'\)[t] == 
            r28 - r60 + r84 + r116 - r150 - 
              r182, 
\(c["R[0,I,P,P,0,P]"]'\)[t] == 
            r29 - r61 + r85 + r117 - r151 + 
              r182, 
\(c["R[0,I,P,P,P,0]"]'\)[t] == 
            r30 - r62 + r86 + r118 + r150 - 
              r183, 
\(c["R[0,I,P,P,P,P]"]'\)[t] == 
            r31 - r63 + r87 + r119 + r151 + 
              r183, 
\(c["R[I,0,0,0,0,0]"]'\)[t] == 
            r0 - r32 - r72 - r104 - r136 - 
              r168, 
\(c["R[I,0,0,0,0,P]"]'\)[t] == 
            r1 - r33 - r73 - r105 - r137 + 
              r168, 
\(c["R[I,0,0,0,P,0]"]'\)[t] == 
            r2 - r34 - r74 - r106 + r136 - 
              r169, 
\(c["R[I,0,0,0,P,P]"]'\)[t] == 
            r3 - r35 - r75 - r107 + r137 + 
              r169, 
\(c["R[I,0,0,P,0,0]"]'\)[t] == 
            r4 - r36 - r76 + r104 - r138 - 
              r170, 
\(c["R[I,0,0,P,0,P]"]'\)[t] == 
            r5 - r37 - r77 + r105 - r139 + 
              r170, 
\(c["R[I,0,0,P,P,0]"]'\)[t] == 
            r6 - r38 - r78 + r106 + r138 - 
              r171, 
\(c["R[I,0,0,P,P,P]"]'\)[t] == 
            r7 - r39 - r79 + r107 + r139 + 
              r171, 
\(c["R[I,0,P,0,0,0]"]'\)[t] == 
            r8 - r40 + r72 - r108 - r140 - 
              r172, 
\(c["R[I,0,P,0,0,P]"]'\)[t] == 
            r9 - r41 + r73 - r109 - r141 + 
              r172, 
\(c["R[I,0,P,0,P,0]"]'\)[t] == 
            r10 - r42 + r74 - r110 + r140 - 
              r173, 
\(c["R[I,0,P,0,P,P]"]'\)[t] == 
            r11 - r43 + r75 - r111 + r141 + 
              r173, 
\(c["R[I,0,P,P,0,0]"]'\)[t] == 
            r12 - r44 + r76 + r108 - r142 - 
              r174, 
\(c["R[I,0,P,P,0,P]"]'\)[t] == 
            r13 - r45 + r77 + r109 - r143 + 
              r174, 
\(c["R[I,0,P,P,P,0]"]'\)[t] == 
            r14 - r46 + r78 + r110 + r142 - 
              r175, 
\(c["R[I,0,P,P,P,P]"]'\)[t] == 
            r15 - r47 + r79 + r111 + r143 + 
              r175, 
\(c["R[I,I,0,0,0,0]"]'\)[t] == 
            r32 + r48 - r88 - r120 - r152 - 
              r184, 
\(c["R[I,I,0,0,0,P]"]'\)[t] == 
            r33 + r49 - r89 - r121 - r153 + 
              r184, 
\(c["R[I,I,0,0,P,0]"]'\)[t] == 
            r34 + r50 - r90 - r122 + r152 - 
              r185, 
\(c["R[I,I,0,0,P,P]"]'\)[t] == 
            r35 + r51 - r91 - r123 + r153 + 
              r185, 
\(c["R[I,I,0,P,0,0]"]'\)[t] == 
            r36 + r52 - r92 + r120 - r154 - 
              r186, 
\(c["R[I,I,0,P,0,P]"]'\)[t] == 
            r37 + r53 - r93 + r121 - r155 + 
              r186, 
\(c["R[I,I,0,P,P,0]"]'\)[t] == 
            r38 + r54 - r94 + r122 + r154 - 
              r187, 
\(c["R[I,I,0,P,P,P]"]'\)[t] == 
            r39 + r55 - r95 + r123 + r155 + 
              r187, 
\(c["R[I,I,P,0,0,0]"]'\)[t] == 
            r40 + r56 + r88 - r124 - r156 - 
              r188, 
\(c["R[I,I,P,0,0,P]"]'\)[t] == 
            r41 + r57 + r89 - r125 - r157 + 
              r188, 
\(c["R[I,I,P,0,P,0]"]'\)[t] == 
            r42 + r58 + r90 - r126 + r156 - 
              r189, 
\(c["R[I,I,P,0,P,P]"]'\)[t] == 
            r43 + r59 + r91 - r127 + r157 + 
              r189, 
\(c["R[I,I,P,P,0,0]"]'\)[t] == 
            r44 + r60 + r92 + r124 - r158 - 
              r190, 
\(c["R[I,I,P,P,0,P]"]'\)[t] == 
            r45 + r61 + r93 + r125 - r159 + 
              r190, 
\(c["R[I,I,P,P,P,0]"]'\)[t] == 
            r46 + r62 + r94 + r126 + r158 - 
              r191, 
\(c["R[I,I,P,P,P,P]"]'\)[t] == 
            r47 + r63 + r95 + r127 + r159 + 
              r191};\)



    \(ODEReceptor = \(Cases[ReceptorLayer, x_ == y_ :> y] /. 
            ReactionRates\) /. LevelConnections;\)

    \(VarsReceptor = 
        Integrate[Cases[ReceptorLayer, x_ == z_ :> x], 
          t];\)

 (*Transformation\ of\ the\ Receptor - 
        Module\ using\ the\ linear\ hierarchical\ transformation\ discussed\ in\ Conzelmann\ et\ \(\(al\)\(.\)\)\ *) 

 (*0  
        th\ \(tier : \ 
          Overall\ concentration\ of\ R\)\ *) 

    \(\(ct[R[X, X, X, X, X, X]]\)[t] = 
        Plus @@ VarsReceptor;\)

 (*1  
        st\ \(tier : \ 
          Levels\ of\ occupancy\ for\ all\ 6\ binding\ domains\)\ *) 

    \(\(ct[R["I", X, X, X, X, X]]\)[t] = 
        Plus @@ Select[
            VarsReceptor, \((\(ToExpression[\(Head[#]\)[\([1]\)]]\)[\([1]\)] === 
                  I)\) &];\)

    \(\(ct[R[X, "I", X, X, X, X]]\)[t] = 
        Plus @@ Select[
            VarsReceptor, \((\(ToExpression[\(Head[#]\)[\([1]\)]]\)[\([2]\)] === 
                  I)\) &];\)

    \(\(ct[R[X, X, P, X, X, X]]\)[t] = 
        Plus @@ Select[
            VarsReceptor, \((\(ToExpression[\(Head[#]\)[\([1]\)]]\)[\([3]\)] === 
                  P)\) &];\)

    \(\(ct[R[X, X, X, P, X, X]]\)[t] = 
        Plus @@ Select[
            VarsReceptor, \((\(ToExpression[\(Head[#]\)[\([1]\)]]\)[\([4]\)] === 
                  P)\) &];\)

    \(\(ct[R[X, X, X, X, P, X]]\)[t] = 
        Plus @@ Select[
            VarsReceptor, \((\(ToExpression[\(Head[#]\)[\([1]\)]]\)[\([5]\)] === 
                  P)\) &];\)

    \(\(ct[R[X, X, X, X, X, P]]\)[t] = 
        Plus @@ Select[
            VarsReceptor, \((\(ToExpression[\(Head[#]\)[\([1]\)]]\)[\([6]\)] === 
                  P)\) &];\)

 (*2  
        nd\ \(tier : \ 
          pairs\ of\ concurrently\ occupied\ binding\ domains\)\ *) 

    \(\(ct[R["I", "I", X, X, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R["I", X, X, X, X, X]]\)[t], 
            List @@ \(ct[R[X, "I", X, X, X, X]]\)[t]];\)

    \(\(ct[R["I", X, P, X, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R["I", X, X, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, P, X, X, X]]\)[t]];\)

    \(\(ct[R["I", X, X, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R["I", X, X, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[R["I", X, X, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R["I", X, X, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R["I", X, X, X, X, P]]\)[t] = 
        Plus @@ 
          Intersection[List @@ \(ct[R["I", X, X, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R[X, "I", P, X, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, "I", X, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, P, X, X, X]]\)[t]];\)

    \(\(ct[R[X, "I", X, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, "I", X, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[R[X, "I", X, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, "I", X, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R[X, "I", X, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, "I", X, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R[X, X, P, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, X, P, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[R[X, X, P, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, X, P, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R[X, X, P, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, X, P, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R[X, X, X, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, X, X, P, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R[X, X, X, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, X, X, P, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R[X, X, X, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, X, X, X, P, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[
                t]];\)

 (*3  
        rd\ \(tier : \ 
          triples\ of\ concurrently\ occupied\ binding\ domains\)\ *) 

    \(\(ct[R["I", "I", P, X, X, X]]\)[t] = 
        Plus @@ 
          Intersection[List @@ \(ct[R["I", "I", X, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, P, X, X, X]]\)[t]];\)

    \(\(ct[R["I", "I", X, P, X, X]]\)[t] = 
        Plus @@ Intersection[
            List @@ \(ct[R["I", "I", X, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[R["I", "I", X, X, P, X]]\)[t] = 
        Plus @@ Intersection[
            List @@ \(ct[R["I", "I", X, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R["I", "I", X, X, X, P]]\)[t] = 
        Plus @@ Intersection[
            List @@ \(ct[R["I", "I", X, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R["I", X, P, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R["I", X, P, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[R["I", X, P, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R["I", X, P, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R["I", X, P, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R["I", X, P, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R["I", X, X, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R["I", X, X, P, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R["I", X, X, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R["I", X, X, P, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R["I", X, X, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R["I", X, X, X, P, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R[X, "I", P, P, X, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, "I", P, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, P, X, X]]\)[t]];\)

    \(\(ct[R[X, "I", P, X, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, "I", P, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R[X, "I", P, X, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, "I", P, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R[X, "I", X, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, "I", X, P, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R[X, "I", X, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, "I", X, P, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R[X, "I", X, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, "I", X, X, P, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R[X, X, P, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, X, P, P, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R[X, X, P, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, X, P, P, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R[X, X, P, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, X, P, X, P, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R[X, X, X, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, X, X, P, P, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[
                t]];\)

 (*4  
        th\ \(tier : \ 
          4 - tuples\ of\ concurrently\ occupied\ binding\ domains\)\ *) 

    \(\(ct[R["I", "I", P, P, X, X]]\)[t] = 
        Plus @@ Intersection[
            List @@ \(ct[R["I", "I", X, P, X, X]]\)[t], 
            List @@ \(ct[R[X, X, P, X, X, X]]\)[t]];\)

    \(\(ct[R["I", "I", P, X, P, X]]\)[t] = 
        Plus @@ Intersection[
            List @@ \(ct[R["I", "I", P, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R["I", "I", X, P, P, X]]\)[t] = 
        Plus @@ 
          Intersection[List @@ \(ct[R["I", "I", X, P, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R["I", X, P, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R["I", X, P, P, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R[X, "I", P, P, P, X]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, "I", P, P, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R["I", "I", P, X, X, P]]\)[t] = 
        Plus @@ Intersection[
            List @@ \(ct[R["I", "I", P, X, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R["I", "I", X, P, X, P]]\)[t] = 
        Plus @@ Intersection[
            List @@ \(ct[R["I", "I", X, P, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R["I", X, P, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R["I", X, P, P, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R[X, "I", P, P, X, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, "I", P, P, X, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R["I", "I", X, X, P, P]]\)[t] = 
        Plus @@ Intersection[
            List @@ \(ct[R["I", "I", X, X, P, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R["I", X, P, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R["I", X, P, X, P, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R[X, "I", P, X, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, "I", P, X, P, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R["I", X, X, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R["I", X, X, P, P, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R[X, "I", X, P, P, P]]\)[t] = 
        Plus @@ 
          Intersection[List @@ \(ct[R[X, "I", X, P, P, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[t]];\)

    \(\(ct[R[X, X, P, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, X, P, P, P, X]]\)[t], 
            List @@ \(ct[R[X, X, X, X, X, P]]\)[
                t]];\)

 (*5  
        th\ \(tier : \ 
          5 - tuples\ of\ concurrently\ occupied\ binding\ domains\)\ *) 

    \(\(ct[R["I", "I", P, P, P, X]]\)[t] = 
        Plus @@ Intersection[
            List @@ \(ct[R["I", "I", X, P, P, X]]\)[t], 
            List @@ \(ct[R[X, X, P, X, X, X]]\)[t]];\)

    \(\(ct[R["I", "I", P, P, X, P]]\)[t] = 
        Plus @@ Intersection[
            List @@ \(ct[R["I", "I", X, P, X, P]]\)[t], 
            List @@ \(ct[R[X, X, P, X, X, X]]\)[t]];\)

    \(\(ct[R["I", "I", P, X, P, P]]\)[t] = 
        Plus @@ Intersection[
            List @@ \(ct[R["I", "I", P, X, X, P]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R["I", "I", X, P, P, P]]\)[t] = 
        Plus @@ Intersection[
            List @@ \(ct[R["I", "I", X, P, X, P]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R["I", X, P, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R["I", X, P, P, X, P]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \(\(ct[R[X, "I", P, P, P, P]]\)[t] = 
        Plus @@ Intersection[List @@ \(ct[R[X, "I", P, P, X, P]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[
                t]];\)

 (*6  
        th\ \(tier : \ 
          6 - tuples\ of\ concurrently\ occupied\ binding\ domains\)\ *) 

    \(\(ct[R["I", "I", P, P, P, P]]\)[t] = 
        Plus @@ Intersection[
            List @@ \(ct[R["I", "I", P, P, X, P]]\)[t], 
            List @@ \(ct[R[X, X, X, X, P, X]]\)[t]];\)

    \)\)\)

\(\(\( (*\ 
      Vector\ of\ new\ variables\ according\ to\ Conzelmann\ et\ \(\(al\)\(.\)\)\ *) \)\(
\)\(\(NewVars = {\(c[
              R[X, X, X, X, X, X]]\)[t], \(c[R["I", X, X, X, X, X]]\)[
            t], \(c[R[X, "I", X, X, X, X]]\)[
            t], \(c[R[X, X, P, X, X, X]]\)[t], \(c[R[X, X, X, P, X, X]]\)[
            t], \(c[R[X, X, X, X, P, X]]\)[t], \(c[R[X, X, X, X, X, P]]\)[
            t], \(c[R["I", "I", X, X, X, X]]\)[
            t], \(c[R["I", X, P, X, X, X]]\)[
            t], \(c[R["I", X, X, P, X, X]]\)[
            t], \(c[R["I", X, X, X, P, X]]\)[
            t], \(c[R["I", X, X, X, X, P]]\)[
            t], \(c[R[X, "I", P, X, X, X]]\)[
            t], \(c[R[X, "I", X, P, X, X]]\)[
            t], \(c[R[X, "I", X, X, P, X]]\)[
            t], \(c[R[X, "I", X, X, X, P]]\)[
            t], \(c[R[X, X, P, P, X, X]]\)[t], \(c[R[X, X, P, X, P, X]]\)[
            t], \(c[R[X, X, P, X, X, P]]\)[t], \(c[R[X, X, X, P, P, X]]\)[
            t], \(c[R[X, X, X, P, X, P]]\)[t], \(c[R[X, X, X, X, P, P]]\)[
            t], \(c[R["I", "I", P, X, X, X]]\)[
            t], \(c[R["I", "I", X, P, X, X]]\)[
            t], \(c[R["I", "I", X, X, P, X]]\)[
            t], \(c[R["I", "I", X, X, X, P]]\)[
            t], \(c[R["I", X, P, P, X, X]]\)[
            t], \(c[R["I", X, P, X, P, X]]\)[
            t], \(c[R["I", X, P, X, X, P]]\)[
            t], \(c[R["I", X, X, P, P, X]]\)[
            t], \(c[R["I", X, X, P, X, P]]\)[
            t], \(c[R["I", X, X, X, P, P]]\)[
            t], \(c[R[X, "I", P, P, X, X]]\)[
            t], \(c[R[X, "I", P, X, P, X]]\)[
            t], \(c[R[X, "I", P, X, X, P]]\)[
            t], \(c[R[X, "I", X, P, P, X]]\)[
            t], \(c[R[X, "I", X, P, X, P]]\)[
            t], \(c[R[X, "I", X, X, P, P]]\)[
            t], \(c[R[X, X, P, P, P, X]]\)[t], \(c[R[X, X, P, P, X, P]]\)[
            t], \(c[R[X, X, P, X, P, P]]\)[t], \(c[R[X, X, X, P, P, P]]\)[
            t], \(c[R["I", "I", P, P, X, X]]\)[
            t], \(c[R["I", "I", P, X, P, X]]\)[
            t], \(c[R["I", "I", X, P, P, X]]\)[
            t], \(c[R["I", X, P, P, P, X]]\)[
            t], \(c[R[X, "I", P, P, P, X]]\)[
            t], \(c[R["I", "I", P, X, X, P]]\)[
            t], \(c[R["I", "I", X, P, X, P]]\)[
            t], \(c[R["I", X, P, P, X, P]]\)[
            t], \(c[R[X, "I", P, P, X, P]]\)[
            t], \(c[R["I", "I", X, X, P, P]]\)[
            t], \(c[R["I", X, P, X, P, P]]\)[
            t], \(c[R[X, "I", P, X, P, P]]\)[
            t], \(c[R["I", X, X, P, P, P]]\)[
            t], \(c[R[X, "I", X, P, P, P]]\)[
            t], \(c[R[X, X, P, P, P, P]]\)[
            t], \(c[R["I", "I", P, P, P, X]]\)[
            t], \(c[R["I", "I", P, P, X, P]]\)[
            t], \(c[R["I", "I", P, X, P, P]]\)[
            t], \(c[R["I", "I", X, P, P, P]]\)[
            t], \(c[R["I", X, P, P, P, P]]\)[
            t], \(c[R[X, "I", P, P, P, P]]\)[
            t], \(c[R["I", "I", P, P, P, P]]\)[
            t]};\)


 (*\ Calculation\ of\ the\ Transformation\ Matrix\ and\ its\ inverse . \ \(Additionally : \ 
            Test\ whether\ the\ transformation\ is\ invertible\ \((MatrixRank)\)\)\ *) 

    \(Trafo = \(\((ct @@ Head[NewVars[\([#]\)]])\)[t] &\) /@ 
          Range[Length[NewVars]];\)

    \(TrafoMatrix = Outer[D, Trafo, VarsReceptor];\)

    MatrixRank[TrafoMatrix]

    \(InvTrafoMatrix = 
        Inverse[TrafoMatrix];\)

 (*\ 
      Inverse\ \(Trafo : \ 
          How\ the\ old\ variables\ can\ be\ calculated\ using\ the\ new\ variables\)\ *) 

    \(ReplInv = \(VarsReceptor[\([#]\)] -> \((InvTrafoMatrix . 
                    NewVars)\)[\([#]\)] &\) /@ 
          Range[Length[NewVars]];\)

 (*\ 
      Transformation\ of\ the\ 128\ ODE\ system\ to\ new\ coordinates\ *) 

    \(ODETrafo = 
        TrafoMatrix . ODEReceptor /. 
          ReplInv;\)


    \)\)\)

ODERModuleReduced = 
        Join[(D[NewVars[[#]], t] == 
                  FullSimplify[ODETrafo[[#]]]) & /@ 
            Range[1, 
              16], (D[NewVars[[#]], t] == 
                  FullSimplify[ODETrafo[[#]]]) & /@ 
            Range[23, 26]];

ODEReduced = Join[ODERModuleReduced, ODEIRSModuleReduced];
\(ODEReduced = 
            ODEReduced\  /. \ {v : \((R | IRS | Shc)\)[___] :> \ 
                  StringReplace[
                    ToString[
                      v], {" " -> \ "", """ -> \ ""}]};\)
vars=Union[Cases[ODEReduced,Derivative[1][c[n_]][t]:>c[n][t],Infinity]];

icsR = ((#  /.  
                        t ->  t0) ->  32) &  /@  
              vars ;
icsE = ((#  /.  
                        t ->  0)  ==   (#   /.  
                        t ->  t0)) &  /@  vars ;
Null

ODEReduced

icsR

    icsE

    vars